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ABSTRACT 


This thesis presents a software implementation in JANUS/ADA of the Radar 
Scheduler process based on previous thesis work developed for the NPS AEGIS 
Modeling Project. The project is an emulation of the AEGIS AN/SPY-1A Radar 
Control Program for a multi-microprocessor system. This thesis is a first effort in 
implementing the NPS AEGIS project model in JANUS/ADA. I[ncluded are the results 


of the preliminary real-time testing and logical tests of the Radar Scheduler module. 
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I. INTRODUCTION 


The AEGIS Combat System (ACS) 1s an automated, rapid reaction shipboard 
combat system. As an automated combat system, it 1s designed to control shipboard 
sensors, manage electronic data processing, and assist in the making of time critical 
combat decisions while simultaneously engaging air, surface, and subsurface threats. 
Additionally an AEGIS platform posesses the capacity for defending its accompanving 
forces against the same threats. To meet this demanding environment the ACS relies 
on a specially designed computer system to assist in every phase of combat 
engagement. 

At present the computer system is composed of three banks of four processors 
and up to three uni-processor AN/UYK-7 computer svstems, totalling fifteen 32-bit 
processors. In addition, there are six or more AN/UYK-20 16-bit minicomputers in 
the system making the AEGIS svstem the largest network of computers dedicated to a 
combat system. The faculty and officer students at the Naval Postgraduate School have 
been interested in wavs to reduce the costs of the ACS without compromusing its 
capability. As a result the Naval Postgraduate Schooi developed the AEGIS Modeling 
Group to study the problem. The group’s major goal and approach to the problem 1s 
to model the AEGIS Combat System’s computer suite using multi-microprocessor 
technology and the latest software engineering principles. 

The feasibility of a multi-microprocessor approach was first addressed by 
Gayler’s thesis [Ref. 1: p. 15]. Gayler explains that state of the art advances in 
microelectronics should be used as an alternate method of processor implementation in 
future AEGIS platforms. In order to realize the benefits of large scale integration 
(such as reduced size, weight, cost, and an increased reliability) a distributed multi- 
microprocessor architecture was proposed. Further studies into the hardware 
implementation were carried out in thesis work by Dilmore [Ref. 2: pp. 7-70] which 
describe hardware implementation for the NPS model. After the hardware decisions 
were made for the model, Riche and Williams [Ref. 3: pp. 11-232] laid out the design 
for the software foundation for the AN/SPY-IJA radar control. 

The NPS design of the software places a major emphasis on concurrent process 


management, both asynchronous and periodic. A Multi-Computer Real Time 


Executive (MCORTEX) was developed in a sequence of six thesis projects to permit 
parallel processing in each computer in the multiprocessor system. At present, thesis 
work is being done to provide concurrent process management by creating an ADA 
language interface to the MCORTEX system. MCORTEX can then be used to 
coordinate the asynchronous processes of the ACS’s model in a multi-microprocessor 
environment. The main objective of this thesis is to implement the Radar Scheduler 
process using the JANUS/ADA programming language. This in turn will provide a 
major portion of the overall model and the opportunity to study the feasibility of real- 
time programming in ADA. 

Chapter II of this thesis presents the software documentation principles for the 
NPS model of the ACS. This includes a discussion of the Janus Ada programmung 
language and an explanation of the program documentation scheme used bv the NPS 
AEGIS Modeling Group. Chapter [II describes the NPS model of the Radar Control 
System. A functional description is given for of each the Radar Control Group 
modules to be modeled. A more detailed description of the Radar Scheduler is provided 
in Chapter {V. Chapter [V presents the Radar Scheduler design and necessary 
documentation for the Radar Scheduler source code. This is the major section of this 
thesis which emphasizes the functional requirements, data structure specifications, and 
an explanation of the algorithms implemented by the Radar Scheduler program. 
Chapter V provides information on testing the algorithms implemented. This includes a 
discussion on the module testing philosophy for time critical programs and the strategy 
used in testing the Radar Scheduler modules. Chapter VI presents the conclusions and 


recommendations for further research. 
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Il. SOFTWARE DOCUMENTATION 


A. SOFTWARE ENGINEERING PHILOSOPHY 

The primary goal of software engineering is to improve the quality of software 
products while increasing the productivity of software engineers. This goal applies as 
well to the AEGIS Modeling Group. Due to the continuing turn over and time 
constraints of research students, it is essential that this project be based on sound 
software engineering principies. In view of this the AEGIS Modeiing Group has 
adopted the following philosophy. First, both the design and the source code must be 
clear, easy to understand, and modifiable. Second, the model must be constructed 
within the constraints of the AEGIS program specifications. 

The first goat mentioned ts achieved through a top down modular design. using 
Structured programming. Vloreover, the documentation must iiso emphasize “his 
hierarchical structure with the upper-most level of documentation presenting *he leust 
Metiiled view and successive levels becoming more 1nd more detailed. This wav the 
Peawer 18 not Overwhelmed by details and thus is more abie to grasp the structure of the 
program. 

The second goal relating to program specifications is very important. Unless the 
design is based on a firm knowledge of the program specification, the modeling effort is 
in vain. Each module’s documentation will include a description of its purpose. All 
modules are constructed so that they obey the functional specifications of the AEGIS 
AN/SPY-1IA Radar Controller software. 


B. THE ADA PROGRAMMING LANGUAGE 

The ADA programming language was designed in accordance with the 
requirements defined by the United States Department of Defense. In general, these 
requirements call for a language with considerable expressive power over a wide 
application domain [Ref. 4: p. 1-1]. Of particular interest in our application is the 
languages ability to cover real-time programming. To support real-time programming, 
ADA provides facilities to model parallel tasks and to handle exceptions. 
Unfortunately, the ADA language implementations do not provide runtime 
environments for multi-single-board computer based systems. In order to use the 


multiprocessor environment, the MCORTEX operating system is used to permit 


I] 


parallel processing in the ADA language. In particular, use is made of the 
JANUS/ADA language, which differs from the fully validated ADA primarily because 
tasking and generics have not vet been implemented. Since the MCORTEX operating 
system is used for parallel processing, there is no need for the tasking features of the 
ADA language, and therefore JANUS/ADA is suitable as the programming language 
to implement the present version of the AEGIS model. 

In the JANUS/ADA programming language modules are composed of packages 
that can be separately compiled. The package usually contains a specification and a 
body. Each of these parts reside in separate files for compilation purposes. Files 
containing the modules specification have the file type “LIB”. Files containing the 
package body have been given the default JANUS, ADA file type “PKG”. 

ADA‘s enumeration types allow the user to add clarity to the code and program 
at a much higher level of abstraction. The clanty is achieved by creating data 
structures that can be easily read rather than having to decipner their purpose aaa 


code. 


C. PROGRAM DOCUMENTATION REQUIREMENTS 

Documentation of the Radar Scneduler Model orogram in dis (hesisuiee: 
Keeping with the PL, i-S0 version which was modeled after the Software Requirements 
for the A7-E Aircraft document. The requirements call for documenting design 
decisions that will impact the future development of the program, what the functional 
requirements of the program are, what the interface data structures are composed of, 
how the program’s internal data structures were fashioned, and the modular 
decomposition of the program. [Ref. 5: p. 23] 

All the design decisions which were made for the Radar Scheduler Model can be 
found in Chapter 4 which serves as a module design document. Each Radar Scheduler 
module’s design documentation contains the following: 

1. A functional abstract description of the module, 
2. Common memory interface, 
a. Data structures consumed, 


b. Data structures produced, 


3. Internal process data structures, 
a. Data structures consumed, 


b. Data structures produced, 
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4. Local module data structures, 

5. A description of the module in an algorithmic language. 
Design decisions made for the purpose of testing the Radar Scheduler are documented 
in Chapter V. 





: AEGIS XV oe Ee Group 
POA TES TD 


FLAS ec 86 
ae Bed abe) ; es 1.0} 
E: Depict format for module source code 


-- NAME: Sample ... fig2.pkg 


-- This sampie module source code skeleton represents 
-- the format to be used in documenting modules. 


eleton.Sample 


WITH global.tables; -- declare global data structures 
; aes -- and common memory 
PACKAGE BODY fig2 [S$ 
LSE global.tabies;: | 


TYPE localvar [S INTEGER: -- deciare anv local | 
Nolte 1OCaAtVvar: -- module variables 


moe bDURE sampletparameter: (N INIEGER) IS 
| procvar: INTEGER: -- deciare procedure variables 
| SEGiN 
| _. 22 code for the procedure 

END sample: 


BEGIN 
-- If desired local or global variables 
-- can be initialized here. 
-- If this module was not designed for the 
-- procedure “sample” then the code for the 
_27 main program “sample” would go here. 
END fig2; 





Figure 2.1 Source Code Documentation. 


Code documentation must maintain a balance between verbosity and scarcity of 
comments. The prime objective is to increase readability and ease the task of 
maintenance. An example of the format for source code documentation in this thesis 1s 
given in Figure 2.1 . The source code documentation used in this thesis can be 
generally broken into three parts, a module header, a module description, and short 
comments for code explanations that may not be apparent to the reader. 

The purpose of the module header is to introduce the module to the reader. The 


header’s template format helps to insure that vital information is not overlooked, while 


adding to the structured approach of the documentation. Each module header provides 
the reader with the following information: 

Who the owner of the module is. 

The date that the module was last altered. 

The type of module and the current version number. 


The purpose for which the module was written. 


a a 


The English language equivalent name of the module and the file name it is 
stored under. 


Following the module header ts the module description. The module description 
is used to explain the generai functional logic which controls the execution of the 
algorithm implemented by the module. Included in the module description are the 
input and output parameters used by the module. 

The last type of documentation, short in code comments, are used to introduce 
the maior functions within the moduie. The comments wiil describe what the function 


has been designed io do. 


D. VARIABLE NAMING CONVENTIONS 

A common pitfail of the applications programmer is “excessive contraction” of 
variable names. [n xeeping with the desire to maximize readability, the convention for 
naming variables 1s based on two principles. First, that the variable name be long 
enough to be unique to the language and the reader, and second, that the name reflect 
the variables purpose. However, if the lengths of the variable names are too long, it 
becomes difficult to organize the source code to fit on the standard 8.5 inch by 11 inch 
page. Consequently the programmer must consider the fact that he will not be the only 
one to read his code and decide accordingly. 

In the case of this thesis variable naming was based on the PL/I-80 version 
names. The reason for this decision was to avoid confusion on the part of future 
researchers. This was necessary since the majority of the variables are defined by 
common memory interface data structures that were designed in the early stages of the 
Radar Control Group modeling process. Since these data structures act as interfaces to 
the other major processes, adding, changing, or deleting variables in these data 
structures was not a decision that should be made from the Radar Scheduler processes 


design level. 
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E. FILE NAMING CONVENTIONS 

A file naming convention has been established in order to keep track of the large 
number of files that make up the the Radar Controller model. This convention has 
been preserved by this thesis in order to maintain consistance with the previous 
versions. The JANUS/ADA modules in this thesis have been named after their PL/I-80 
predecessors so that their names will serve as a cross-referencing tool to facilitate 


future research. 


| 
| Beeyo tea 
NPS AEGIS MODULE NAMING CONVENTION 


MODULa2 NAME CODE Soe AME 
ConeROm CrOUrP 


Radar scheduler m RRCM 
searcn Management 2 SRC 
| ieae ee aAnAgGeMenc I BOK 
: Radar Return ( input) i iC 
| Beecat OUTSUE O ORCM 
| Seanne! 2! /,O Centro! fel SRCM 
. See 20k f sCxOUr 
SwWit 2on Action and Display 2 ARCM 
Cab User Services Se Cee 
Healeocabl 1 2acton B BRCM 
Detection Processing D DRCM 
ECM/Clutter Processing E ERCM 
Proeqgueney Management E EF RCM 
Track Association K KRCM 
Load Evaluation L LRCM 
Missile Communications M MRCM 
WCS User Services W WRCM 
Cross-Gating x XRCM 





The scheme for naming the files is presented in Table 1 . Each of the major 
processes is assigned a unique one letter process identifier code. This code followed by 
the letters “RCM”, make up the file name which stands for “Radar Control Module’. 
Each of these major processes is composed of several subordinate modules. The file 
names of the subordinate modules correspond to the initials of their parent process 
followed by a module number. For example, the first module within the Switch Action 
and Display process would have the file name “SADM1” which stands for Switch 
Action and Display Module 1. 


If the modules are further subdivided into submodules and subroutines then they 
are uniquely identified through file name typing. That is, the filename takes on the 
parent process initials and module number followed by a submodule letter (A-Z). For 
instance, the Track File Initialization module, DPM1, which is part of the Detection 
Processing Module, has a subroutine which is used to place a node at the end of a 
linked list. Since this subroutine is part of DPM1, it has the file name DPMIA. 

Some subroutines may be used by many modules. In this case they have more 
than one parent process and are classified as “Common Service Routines”. These 
modules use the file name “CSR” followed by a number to uniquely :dentufy them from 
other “Common Service Routines. For example, the subroutine rand iiiea 
generates a pseudo-random number, is shared by several modules, therefore, it has the 
file name “CSRS”. There is also one other module which ts shared by the major 
processes. This module contains giobal data structures and its ile name is “GLOBAL’. 

The Radar Control Module also incorporates ities that contain data structures 
which acl as a2 “common memory imleriace between ihe major processess = 
common memory interfaces are called “tables” and their file names are the initials 
“TAB” followed bv a number (0-77). The table's file names are organized into the 
matrix presented in tabie 2. This table shows data structures which interface withthe 
major processes. The columns of the matrix contain entries which idently tables used 
as the input data structures to the process identified by the letter on top of the column. 
The rows of the matrix contain entries that identify the tables which are used as output 
data structures from the process identified by the letter in the left most column of the 
matrix. For example, “fAB3” is an interface data structure between the Radar Return 
process (I), and the Radar Scheduler process (R). To the Radar Return process 
“TAB3” is an input data structure and to the Radar Scheduler process it is an output 
data structure. 

Since all the modules are defined as Ada packages, some modules may 
incorporate two files, the package specification and the package body. To distinguish 
between them, the file containing the specification has the file type “LIB”. The file 
containing the body has the file type “PKG”. For example, the files "RRCM.LIB” and 
“RRCM.PKG” are collectively the Radar Scheduler process.! 


Unless ee the words process, module, submodule, subroutine, etc., in this 
thesis refer to the entire package data structure. 
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Il. NPS MODEL OF THE AN/SPY-1A RADAR CONTROL GROUP 


The NPS model of the AEGIS system is designed to emulate the Radar Control 


system. The overall system, as described by Gayler [Ref. 1: p. 1], contains seven 


subsystems: 
1, Radar Svstem AN/SPY-1IA 
2. Command and Decision System MARK | MOD 0 
3. Weapons Control Svstem MARK 1 MOD 0 
4. Fire Control System MARK 99 MOD 1 
5. Guided Missile Launching System MARK 26 MOD 5 
6. Standard Vitssile 


7. Operational Readiness Test System MARK |! 
Research at NPS is focused on the tirst of these subsystems. The NPS AEG Sm@iggge: 
implements a subset of the Radar Control Group subsvstem, which tn turn ts a subset 
of the Radar Svstem AN/‘SPY-lA. The reasons for this decision are discussed in 
Dilmore’s thesis {Ref. 2: po. 1-20}. 

The radar controller modules have oeen broken down into two major groups: 
control modules and support modules. The control modules are dedicated to the five 
major tasks of the radar controller: 

1. Search Management, 
2. Radar Scheduling, 
3. Radar Output, 
4. Radar Input and, 
5. Track Processing. 
The support modules perform more limited or specialized functions. Only the support 


modules required to implement the Radar Scheduler will be presented in this thesis. 


A. RADAR CONTROL GROUP MODULES 
This section gives an overall view of the Radar Control Group modules required 
for the modeling of the Radar Scheduler process. The first subsection describes the 


“control modules” and the second subsection is dedicated to the “support modules”. 


1. Control Modules 
Four of the five “control” modules are required to model the Radar Scheduler 
functions: the Radar Scheduler process, the Search Management process, the Track 
Management process, and the Radar Return process. Of these control modules onlv 
the Radar Scheduler is fully modeled. The remaining control modules are at present 
only test harnesses for the Radar Scheduler process. The following description of these 
modules is based on previous thesis work [Refs. 3,5: pp. 43-50, 32-36]. 
a. Radar Scheduler 
The Radar Scheduler’s purpose is to schedule a mix of radar events. These 
events actually correspond to the transmission of a radar beam in a specific direction 
for a certain amount of time. In doing this the scheduler must ensure that a search 
volume of 360 degrees azimuth and 90 degrees elevation is covered. The term “mix of 
radar events refers the various types of events such as search. track. mussile control. 
etc.. Each of these events has a certain prioritv ‘vhich must be taken into account to 
imsure its timely occurance. The time limuc for scheduling a mix of radar events in a 


given radar interval is 21 milliseconds. For this reason the Radar Scheduier is the most 


ad 


ai@eseniical function within the Radar Control Group to pe modeled. A more detaiie 
description of the module’s functions will be ziven in the Radar Scheduler Design 
chapter. 

b. Search Management 

The Search Management module generates all the search type beam 
requests. The requests fall into three general categories, horizon search, above horizon 
search, and special request type beams. The beams are maintained in separate queues 
in accordance with the operational doctrine, the special request doctrine, and the radar 
event priority list. 

The Search Management module must insure that enough horizon and 
above horizon requests are generated for a 360 degree azimuth and 90 degree search 
field. These two event types may be considered typical for normal operation. 

On the other hand, special request beams correspond to events which 
would not be considered under normal searching operations. The special request 
category contains eleven radar event types, which enhance the radar search capability. 
The capabilities provided by the special request events are explained in the remainder 


of this subsection. 
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Two of the special request events are devoted to ECM Burnthrough. ECM 
Burnthrough is an electronic counter measure whereby the radar’s transmission power 
is increased so that objects can be seen through jamming and/or clutter. Jamming is an 
electronic warfare technique used against radar to distort the radar return being viewed 
on the scope. Clutter is a term used to describe extraneous blips on the radar scope. 
The blips are usually caused by bad wether or sea conditions. 

Special scans requests are also controlled by the Search Management 
process. Special scans include manual and moving target indicator {MTI) search 
requests. MTI is a technique that electronicailv filters out stationary objects from the 
radar display, thereby indicating which objects, or targets, are actually moving. 

The Search Management module controlls passive search. [In a passive 
search, unlike active search. the radar’s transmitter is off and the radar’s receiver is 
only used to detect the presence ot another emmiuter. 

The extended search mode ts another capability that ts controiled by the 
Search Management process. This is used when there are severai contacts along {the 
same azimuth and the radar returns from the contacts become difficult to distinguish. 
Electronic blanking zates are inserted at the ranges of known contacts along the given 
azimuth so that the other contacts may be detected. The extended search moO@euaaaa 
aiso be used to increase the search intensity in either range or bearing. 

Horizon confirmation is an electronic means used to confirm targets in a 
clutter environment. Horizon confirmation and the clutter mapping process are both 
supported by the Search Management process. 

The remaining special request functions supported by the Search 
Management module are missile and target acquisition requests, and partial dwell 
formatting of the requested beams. Modeling of the partial dwell formatting for use by 
the Radar Scheduler would require the use of classified documents. In order to 
maintain the unclassified status of this thesis, unclassified data has been substituted in 
the requested beam queues. 

c. Track Management 

The Track Management module is responsible for controlling all the 
requested track beams. Controlling the requested track beams entails three major tasks, 
with respect to both real and simulated targets. 

The first task is track updating. Track updating entails an automatic 


smoothing of the position and rate of target return data. This data is used to predict 
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the future target positions with sufficient accuracy to maintain tracking. In order to 
accomplish this, the Track Management process must ensure that the highest priority 
tracks are given ample illumination time by the radar while simultaneously keeping 
lesser priority tracks illuminated within the constraints necessary to maintain their 
tracks. When the system becomes overloaded, the software must be able to compensate 
by eliminating those tracks that are perceived as least threatening. Naturally, this also 
implies that track processing must be able to evaluate new targets immediately so that 
special threat candidates and target splits can be identified. 

The second task is track handling. Track handling includes the following: 
Track dwell wave form selection, 
Cross-gate preparation, 


Transition from search to track mode, 


mS GC RO — 


Acceleration limiting processing, and 


Ca 


Automatic special mode processing. 

The third task is special processing. Special processing is a collection of 
routines used for MITI tracks. missile tracks. and clock updates. Special processing also 
includes a routine for handling split targets. A split target 1s actually two or more 
targets that initially appear as one because thev are so close together. When the targer 
does split into multiple tracks each must be individually processed. 

Special processing also includes a routine for processing Sensitivity Time 
Control (STC) data. STC is an electronic adjustment to the gain of the radar receiver 
based on the radar range to the target. This keeps objects closest to the radar, which 
provide very strong returns, from saturating the radar returns. 

In conjunction with the three functions previously mentioned, the Track 
Management module is responsible for notifying Command and Decision (C & D) and 
Weapons Control Systems (WCS) of new tracks and any special threats. 

d. Radar Return (Input) 

The Radar Return module performs the initial processing on the raw data 
received from the SPY-1A Signal Processor. This includes data validity checks, clutter 
mapping, search processing, track angle error correction, and ECM analysis. 

Once this is accomplished, the radar data must be routed to the appropriate 
modules for further processing. Evaluation and dissemination of this data is subject to 
the same 21 millisecond time constraint as the Radar Scheduler. In fact the Radar 
Scheduler relies on synchronization data from the Radar Return module to maintain 


scheduling interval synchronization with the radar hardware. 
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2. Support Modules 


There are fifteen “support modules 


a 


contained in the Radar Control Group 
Modules. These support modules function as background processes to provide support 
for the “control modules”. Seven of these modules are required for modeling the Radar 
Scheduler function. The description of these modules is based on information supplied 
in previous thesis research for the AEGIS Modeling Group [Refs. 5,3: pp. 36-40, 
51-55]. 

a. Switch Action and Display 

The Switch Action and Display module acts as an interface between the 
Radar Svstem Controller (RSC) and the radar. This allows the RCS to monitor and 
control the radar in accordance with operational doctrine and the individual desires of 
the operator. 

The moduie provides information to the Radar Scheduler function which is 
used in formatting selected beams for the current scheduling interval. The information 
consists of inhibited radiation regions and the radiation power leve! (low or high). 
Radiation inhibit regions are regions where doctrine control does not ailow radar 
transmission. The regions are defined via start and stop bearings. 

5. Command and Decision User Services 

The Command and Decision User Services module acts as an interface 
between the Radar Control Group and the Command and Decision Group. The 
purpose of the module is to check and route all the messages between these programs. 
To accomplish this, a priority level message scheme is used in order to meet the 
required track report interval rates and other report rates during peak radar load 
periods. 

c. Beam Stabilization 

The Beam Stabilization module performs two main functions. First it 
transforms the ship’s motion matrix (roll, pitch, and yaw) into a stable space matrix 
which is used for radar beam guidance. Second, it assigns the array face limits which 
are used in formatting scheduled dwells. 

The fore and aft gyro data converters supply the necessary roll, pitch, and 
yaw information along with ship’s heading for stabilization. This information is used 
to compute the stable deck space matrix. 

The ship’s motion matrix and the bearing limits for the four phased array 
antennas are passed to the Radar Scheduler. The Radar Scheduler then uses the 


information to format the selected dwells. 
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d. Detection Processing 

The Detection Processing module is executed only when target or beacon 
detection data is received from the Radar Return module. When this occurs the 
module looks for detections as a result of normal search (clear and MTI), extended 
range search, horizon confirmation, missile acquisition, and target acquisition dwells. 
The module is also responsible for initiating track requests and preparing detections for 
cross-gating. 

The Track File data is maintained by the Detection Processing module. The 
Track file is a linked list data structure capable ot handling as many targets as can be 
tracked within the hardware constraints ot the computer. Access to the Track Fie is 
provided to the Radar Scheduler by the Track Management module via an index into 
Ene file. 

e. Frequency .vianagement 

The Freauency Management module is used to assign radar frequencies to 
the dwells selected by the Radar Scheduler dunng each scheduling interval. The 
Irequencies and ohase codes assigned to the dwell are made to conform with sector and 
gional doctrines. 

In accordance with the doctrines, frequency channel seiections are in one ot 
three modes, fixed, random, or prelook. Fixed implies one designated channel only. The 
random mode means that frequencies are selected on a random basis from the available 
channels established by the current doctrine. Prelook implies frequency selection of the 
least jammed channel frequency based on the results of a passive angle track (PAT) 
frequency analysis. By use of these frequency channel selection modes the Frequency 
Management module can generate the Radar Scheduler input data for the frequency 
Operating channel and subpulse-frequency order selection. 

The phase code to be used within each dwell is also specified by this 
module. The phase codes are selected at random from a list of the phase codes 
available during the current schedule for each dwell. A separate list of phase codes are 
maintained for clear and MTI type dwells. 

Each scheduled dwell will contain channel frequency, band frequency, 
phase codes, and inhibited frequency channels. If the dwell is an MTI type then it will 
also contain MTI frequency data. If the dwell is a missile type then missile uplink and 


downlink frequencies will be included. 


Mee 


f. Load Evaluation 
The Load Evaluation module provides system’s load information to the 
Command and Decision element as well as the Radar System Controller. The systems 
load is based on seven indicies which must be computed periodically. These seven 
indicies are: 


1. Transmitter utilization load, 


2. Control group track file load, 

3. Control group computer processing load, 

4. Search frame time for horizon and above horizon scans. 
Sc bie aude: 

6. Track transition index, and 


7. Radar time utilization index. 

The track ume variable 1s used bv the Ragar Scheduler as input tougese ee 
track time counter. The Radar Scheduler xeeps 2 running total of track @iigemee 
Track time index orovides the vercentage of radar usage dedicated to tracking targets 
over an average five second time span. 

o, Vissile Communication 

The Missiie Communication moduie provides an interrace between the 
Weapons Control System guidance command generation and Radar Controi Program's 
guidance control link. Uplink missile guidance commands and the missile identification 
code are sent to the Radar Scheduler. Further information on the operation of this 


function can be found in classified documents. 
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IV. RADAR SCHEDULER DESIGN 


The design of the Radar Scheduler function is based on the PL/I-80 version 
implemented by Grant, [Ref. 5: p. 41]. This chapter presents the design details for the 
JANUS/ADA version of the Radar Scheduler process. 


A. PURPOSE OF RADAR SCHEDULER 

The Radar Scheduler’s purpose is to schedule a mix of radar events (dwells) in a 
way that ensures the occurrence of necessary events in a timely manner. The various 
types of radar events used in this model were taken from open literature, rather than 
the actual classified list found in the AEGIS performance specifications. [Ref. 5: p 41] 


The list of radar events shown in Table 3 are the radar events used in this modei. 


een 


TABLE 3 
wore ve NT PRIORITY LIST 


BetORITY RADAR ZVENT QUEUE IDENTITY 
iy ECM Burnthrough Special Request 
iz, Target Definition Special Request 
5 Special Test. Special Request 
4 Bee Hostile Target Track 
3 Own SM-Z2 Missile Guidance Missile 
6 Pre=-Engaged Hostile Target | Abacos s< 
yi Pugiercrorlicy Ihack Transition Track 
8 Bagi erioniey Track Confirmation Track 
S Horizon Search search 

iy Special ECM Burnthrough Special Request 
teu Special Target Definition Special Request 
eZ Special Scans (MTI,Man,etc) Special Request 
a3 ~pecial Target Acquisition special Request 
14 Confirmed Hostile Track rack 
Ie Assumed Hostile Track Track 
16 Unevaluated Track Track 
ip / Controlled Friendly Track Track 
aR Peace Commi hnacl on dbgrisy5¢ 
Us Track Transition Track 
ZO Assumed Bee Ay track Track 
21 Contirmed Friendly Track Track 
ZZ Po OMe Cmeaon ocarch Se atqei 
Zz 3 Above Horizon Search Test Special Request 
24 Simulation Dwell Special Request 
Zi Diagnostic Dwell piece lone guest 
26 Dummy Dwell Special Request 


The actual mix of radar events that get scheduled is determined by the Radar 
Scheduler. The schedule is governed by the radar resources available, time constraints, 
and an event's priority relative to the other events that are being requested. The details 
of the process are explained in the following section. The Radar Scheduler’s 


algorithmic description is given Figure 4.1 . 





Begin Radar Scheduler; 
ror number of intervals loop; 
Advance radar loop event counts; 
Get value of real time (CSR7); 
Swap external dwell bufrers (RSM2); | 
Do enhancement of Radar Event Priorities (RSM3); 
Resynchronize computer and radar times (RSM4); 
Begin peam Selecuron 
Traverse the Priority List 
Traverse the event queue 
| If search or special request queue then | 
| rut Deam information in Control Table; | 
| Do Supplementary Dwell Processing (RSM6) ; 
| Do Face Assignment (RSM7); 
| Do Raden eccrine Role | 
Satisty Hardware Constralnesw caso 
| If satisfied then | 
Fiil External Tables (RSM10); | 
| ; Insert Dwell in Control Table list (RSjeae ! 
Zlse 
| Delete Dwell from Control Table list (RSMS); | 
| aise 
Put beam information _in Control Table; 
Do Supplementary Dwell Processing (RSM6); 
Do Face Assignment (RSM7); 
Do Radar Doctrine (RSM8) ; 
Satisfy Hardware Constraints (RSMQ9); 
If satisfied then 
Fill External Tables (RSM10); | 
oa Insert Dwell in Control Table list (RSM5); 
se 
Delete Dwell from Control Table list (RSM5); 
End Traverse the Event eueaee 
Compute Elapsed Time (RSM12); 
End Traverse Priority List; 
End Beam Selection; 
If interval results are to be displayed then 
Display Interval Scheduling Results (RSM13); 
Free Control Table Memory for Next Interval (RSM14); 
End For number of intervals loop; 
End Radar Scheduler; 





Figure 4.1 Radar Scheduler Algorithm. 
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B. FUNCTIONAL DESCRIPTION OF RADAR SCHEDULER 

The Radar Scheduler operates in a continuous loop selecting requested beams, 
generated by the Search and Track management processes, for scheduling. Once 
selected, the beams are formated into dwells. If the hardware and other constraints are 
satisfied, then scheduled dwells are sent to the Radar Output function and are packed 
into the Channel Output Buffer for transmission to the Signal Processor. The time it 
takes to complete this task is defined as a scheduling interval. Furthermore, the median 
scheduling interval is defined to be 21 bms (binary milliseconds). 

the requested beams are stored for use bv the Radar Scheduler in four tvpes of 
queues. [he searcn and special request type queues are maintained by the Search 
Management Process.~ The track and missile tvpe queues are maintained bv the Track 
Management Process.? The Radar Scheduler gains access to these queues through 
M@emiters in the Priority Event List. [he Priority Event List in turn provides the 
Mee@eaiier with a mechanism for prioritizing the requested beams (see able 3). 
MmeretOre..an ordering of the beams is developed in two ways. From the queue 
Meemcture they are ordered in a iirst come [irst served fashion. Second. the queues 
Meemiseiyes are Ordered bv association with the Pnoritvy Event List. [he queue 
Mssociated With ihe radar event at the beginning of the list has the highest priority as 
indicated in the tabie. logether these data structures provide the oasis of the priority 
scheme used for selecting the requested beams. 

When the Radar Scheduler program is loaded for execution, the Priority Event 
List and the scheduler’s internal data structures are automatically initialized. Also 
included in this initialization are the data structures that the scheduler produces. 

The scheduling interval begins after advancing the event counts and updating the 
real time. Next the external dwell buffers are swapped preparing them for the next set 
of dwells to be scheduled. Once the buffers have been swapped, the enhancement 
procedure modifies the Priority Event List holding the requested beams. 

The enhancement routine dynamically enhances the priority of the events in the 
list and in effect changes its traversal order. Changing the traversal order of the events 
increases the probability of selection for those requested beam queues associated with 
the events at the head of the list. 


*Search and Special request queues are formed from the Search Node data 
structure. 


>Track and missile queues are formed from the Track Node data structure. 
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After enhancement and resynchronization of computer and radar times, the beam 
selection process begins. During this process beams are considered for selection by 
traversing the Priority Event List in its’ current priority order. The highest prioritv 
beam is selected first and so on until the resource constraints are exhausted for that 
particular interval. 

There are several resource constraints that must be considered. There must be 
sufficient radar resources available to handle the requested beams. The elapsed time for 
the scheduling interval must be less than the ailowed elapsed time. The total dweils 
scheduled must not exceed the maximum allowed during an interval. The final 
constraint occurs by completely traversing the Priority Event List and in effect 
terminating the beam selection process. I[f these constraints are met, traversal of the 
Priority Event List is continued. 

[f the “vents beam queue ts not empty then the beam queue 1s traversed 
processing each requested beam. First the beams iniormation is inserted into a Radar 
Event Control Tabie node. Next supplementary dwell processing occurs in preparation 
for scheduling. After this is accomopiished. the selected beams are given an array {ace 
assignment and 4 comparison its done between ‘he beam's transmission and the radar 
doctrines that are in etfect. Once this is accomplished the beams must meet the final 
selection criterion Of satisiving the nardware constraints. 

If the hardware constraints were satisfied, then the selected beam is sent to the 
external dwell buffers, load evaluation occurs, and the node is added to the Radar 
Event Control Table. If the hardware constraints were not satisfied, then the node is 
returned to the pool of available Radar Event Control Table nodes for future use. The 
Radar Scheduler then considers the next beam in the event’s request queue, and so on 
until the queue 1s empty. 

When the beams in the queue have been considered the scheduler moves on to 
the next event in the list. This continues until all the events in the Priority Event List 
have been considered or the resource constraints can no longer be met. Once this 
occurs, the scheduling interval is completed and the elapsed time is computed. 

If the results of this interval are requested by the program operator, then the 
appropriate information is dumped into a file called "RSOUT.TXT”. Then the memory 
is freed up for the next scheduling interval by returning the nodes that make up the 


Radar Event Control Table to the pool of available nodes. 
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The run-time Radar Scheduler model does not implement the following design 
time modules: Resynchronization (RSM4), Supplementary Dwell Processing (RSM6), 
Radar Array Face Assignment (RSM7), Comply With Radar Doctrine (RSM8), and 
the Radar Load Evaluation (RSMI11) module. Implementation of the modules that are 
not coded would require knowledge of the required data structure values to be 
produced. Due to time constraints, the design decisions which must be made to 
produce those values must be deferred until the processes that will use them are 


designed and implemented. [Ref. 5: pp. 46-47] 


fe EXTERNAL DATA STRUCTURES 

The external data structures are global constants, variables, and type declarations 
which act as interfaces between the Radar Scheduler modules and the other Control 
Grouv and Support Group moduies. The modules are referred to as tables and are 
numbered consecutively from zero to seventy-seven. 

A Common Memory Interface Matrix. Table 2, 1s designed to be used as an 
faex into the listing of the external data structures located in Appendix D. The 
applicable data structures for the Radar Scheduler Module can be found ov reading 
across row “R° io locate the output data structures and down column “R” to locate the 
input data structures. 

1. Data Structures Consumed 

These data structures reside in common memory and are declared by Library 
Packages for use by the Radar Control processes which read from and write to them. 
The Radar Scheduler uses the data structures in the following tables to select and 
format dwells during a scheduling interval. 

a. Table 0 - Priority Event List 

The Radar Event Priority List is visible to the Radar Scheduler (consumer), 
Search Management (producer), and the Track Management (producer) procedures 
only. The variable pri_Ist is a one dimensional array of radar events which correspond 
to the Radar Event Priority List depicted by Table 3 . The array simulates a linked list 
so that priorities can be changed dynamically during execution. Each element in the 
array 1S a pointer corresponding to a unique Radar Event. Each event contains a 
BeamQue which is a variable record that holds a pointer to a queue of requested 
beams. Although each queue is unique, they are classified as either search, special 


request, track, or missile type queues, depending which Radar Event the beam queue 
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belongs to. The variable record is designed to associate search and special request 
beams with the search node data structure found in TABI.LIB. The track and missile 
type beams are associated with the track node data structure of TAB2.LIB. The 
Priority Event List is the key to the selection process. By placing the beam queues in 
the Priority Event List, the requested beams are prioritized by association with their 
respective radar events. The requested beam’s priority is used as the main criterion for 
selection. Furthermore, since the Priority Event List is designed to act like a linked list, 
the traversal order can be changed for each interval to ensure the eventual selection of 
the lowest priority beams. 

The constants and variables defined by this data structure are described as 
follows: 


e status is a boolean flag which is set to true when the event queue has 
tnformation tn it. 


* eventnm is a string with the event name corresponding to the Radar Event 
Priority Lasml ale’ 2). 


e max_nodes is a variable representing the maximum number of nodes that the 
event § requested beam queue can hold. 


* que_id is an enumeration type variable corresponding to one of four possible 
queue types, search , special_request , track , or missile . 


* que_otr is actuallv a variable record containing a pointer to the first node in 
ihe svent's requested Seam queue. ‘ii the que_id Is a search Or SpeCiaiiaeerme 
Biol CINE then the pointer Snode is visiblé, otherwise the pointer Tnode 1s 
visible. 


e enhne acts as a flag which when Set to true indicates that the priority of the 
event can be enhanced bv the Radar Scheduler when the conditions stated in 
Radar Scheduler Module 3 are met. 


¢ b_prijis an integer variable which holds a constant value corresponding to the 
event's base priority. This value is the same as the “pri_Ist” array’s index value. 


c ba is an integer variable which core seas to the event’s current priority as 
determined by Radar Scheduler Module 3. 


e tx indicates the last time a beam from this event was selected by the Radar 
Scheduler. 


e allwd_Itx indicates the allowed time between selection for this type of event. 


e  sict_flg is a flag which is set to true if a beam from this event was selected 
during the previous interval. 


¢ nxt is an integer variable used as an index or pointer to the next priority in the 
pri_Ist. [t's value can only be changed during priority enhancement. The value 
acts as an end of list marker in the same way that a null pointer marks the 

end of a linked list. 


e low_enhnce is a constant which stands for the lowest enhancement value, 4. 
¢ max_pri is a constant which stands for maximum priority but is actually the 


maximum number of events in the Priority Event List or the length of the 
pri_Ist array, 20. 
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b. Table 1 - Search Node 
This data structure acts as a template for the nodes within the search and 
special request beam queues. Table 1 also provides an interface for the Radar 
Scheduler process and the Search Management process. The fields contained in the 
search node record are as follows: 


e HG is the event number identifier. It can have a unique value between | 
and 26. 


® info.bid is a character string which acts as a unique beam identifier for scheduler 
erliciency anaivsis. 


>» info.beam_posit.azim is an integer variabie describing the requested beams 
azimuth position in Geck space coordinates. 


®* info.beam_posit.eley is an integer variable describing the requested beam s 
elevation position in deck space coordinates. 


e info.inst_rge is a variable which gives an indication of the range to which the 
Beare, Deamms to be effective. 


*  info.stc_data is the sensitivity time control variable. This ts used as an indication 
of how mucn power will oe ailowed to be used to pull contacts our ot clutter. 


¢ inio.coct_bink_gte holds the vaiue for the radar doctrine range gate. 

* into.citr_bink_vte noids the value tor the radar clutter range gate. 

* inio.eof_ingic is a flag which when set fo crue indicates that search frame has 
Decdmeompleted = Awseaten irame consists of 50U degrees of azimuth and 20 
degrees of elevation. 


®  info.req_id is used to hoid the identity or the requesting process {for special 
request beams. 


e eee a pointer to the next node in this queue, which is a linked list of Search 
Nodes. 


c. Table 2 - Track Node 
This is a common memory interface data structure between the Radar 
Scheduler process (consumer) and the Radar Return process (producer) only. The track 
Node is a template for the nodes within track and missile beam queues. The data fields 
declared in the Track Node are: 


e pee mode is the event number identifier. It can have a unique value between | 
an 


e info.bid is a character string which acts as a unique beam identifier for scheduler 
efficiency analysis. 


e info.p trk_is a pointer to the Track File which this node is requesting a beam 
for. Ihe Track File data structure is located in Table 7. 


e nxt is a pointer to the next Track Node in this queue, which is a linked list of 
Track Nodes. 
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d. Table3-Ito R 
Table 3 is a common memory interface data structure for the Radar 
Scheduler (consumer) and Radar Return (producer) processes. The data structure the 
following SPY-1 radar status variables: 


e resynch_time is the amount of time that the Radar Scheduler is out of 
synchronization with the SPY-1 radar expressed in milliseconds. 


* ore con is an integer variable used to tell the Radar Scheduler how far ahead 
ehind in the radar control loop the Radar Control Program is. 


* xmsn_status 1s a boolean variable indicating the transmission status of the 
previous intervai’s scheduted beams. 


@ Table -£- A to & 
Table + is a common interface data structure between the Detection 
Processing Process (consumer), Radar Scheduler Process (consumer), and the Switch 
Action and Display Process (producer). The data structure contains RCS commands to 
aid in the formating of the radar dweil butler. The data fieids are as follows: 


° nower_ Ug 1s a ooolean variable that represents the status of the radar power. 
When power tig” is set co true, the power is to high. and whem 1t 1S Set (Gmaees 


the power is to low. 


) rad_owr_option is a boolean variable that represents the status of the radar 
ooWer option. When set to true the 90Wer option {s on, and when Serum mee 
the power option 1s ort. 


° rad_ mnmibt_} regions 1S aa five element airay of records containing start. and Teo 
peeuaes for one of five possipie radiation innibition regions definaole OV 
octrine 


e rad_inhibt_regions( ).start_bng is the bearing start indicator. 
e rad_inhibt_regions( ).stop_bng is the bearing stop indicator. 


; ou doct.mtrks is the maximum number of tracks to be initialized in the Track 
Ie. This value is used to aid in testing the Radar Scheduler Module. 


¢ op_doct.mintvls is the maximum number of scheduleing intervals to be run on a 
test of the Radar Scheduler Model. 


° Oe anetec! is an integer variable used to define the interval display delay 
perio 


f. Table 5 - Command and Decision User Services Interface 
Table 5 is visible to the Radar Scheduler Process (consumer) and the 
Command and Decision User Services Process (producer). The interface contains one 
variable to comimunicate the transmission status: 


e rdr_silence is a boolean variable which when set to true, informs the Radar 
Scheduler that radar silence is in effect. 
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g. Table 6 - Beam Stabilization Interface 
Table 6 is a common memory interface between the Radar Scheduler 
Process (consumer) and the Beam Stabilization Process (producer). The data structure 
contains information concerning array face limits and the ship’s motion matrix. The 
data fields are as follows: 


e face_antenna_limits is a four element array of records containing the left and 
right for each of the four phased array antenna faces. 


e face_antenna_limits( ).limit_left indicates the left most bearing limit to an 
accuracy of J.1 degrees for the phased arrav antenna face indicated by the arrav 
index. The limits are converted into stable space bearings {rom deck space 
bearings Sy the gyro converters. 


e face_antenna_limits( ).right_limit is the same as above only pertaining to the 
right most limut. 


e VIE TTD TS TB SS a is the value of the ship’s velocity in the x deck 
ireéction. 


¢  ships_motion_matrix.y_ship_dot is the value of the ship’s velocity tn the v deck 
direction. 


*  ships_motion_matrix.roil is the amount of roll the ship is experiencing. 

*  ships_motion_matrix.pitch is the amount of pitch the ship is experiencing. 

¢  ships_motion_matrix.yaw is the amount of vaw the ship is experiencing. 

®  azim_limit_siope 1s the limiting vaiue of the rise in elevation for a given azimuth. 

At. Table 7 - Track File 
Table 7 is a common memory interface between the Radar Scheduler 

Process (consumer/producer), the Detection Processing Process (producer), Track 
Processing Process (producer/consumer), and the Track Management Process 
(consumer). The Track File acts as a memory map which allows dynamic allocation of 
memory for tracks as they are acquired. The files are arranged in a linked list of track 
file nodes. The track file nodes contain two major hierarchy levels beam data and track 
data. These data fields are defined as follows: 


e beam_data.mode is an integer between 1 and 26 which corresponds to the 
identity of the radar event for this track. 


e beam_data.bid is a character string which uniquely identifies the requested beam 
for this track. 


e beam_data.priority is an tae: value corresponding to the relative priority of 
this track compared to the other tracks in this Track File. 


¢ beam_data.posit.x is the rectangular X coordinate of the track position as found 
when it was last illuminated by the radar. 


e beam_data.posit.y is the rectangular Y coordinate of the track position as found 
when it was last illuminated by the radar. 


¢ beam_data.posit.z is the rectangular Z coordinate (elevation) of the track 
position as found when it was last illuminated by the radar. 
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beam_data.posit.sInt_rge is the straight line range to the track’s last position. 
beam_data.posit.x_dot is the track’s velocity in the X direction. 
beam_data.posit.y_dot is the track’s velocity in the Y direction. 
beam_data.posit.z_dot is the track’s velocity in the z direction. 
beam_data.posit.rge_dot is the tracks relative change in straight line range. 


beam_data.trk_xsitn_flag is a boolean variable which when set to true indicates 
that fhe track has a track historyless than or equal to four detections. 


beam_data.ctl_grp_trk_num is a number which corresponds to the track’s Radar 
Control Group track number. 


beam_data.cts! 1s a number used to historicallv record the track. 


beam_data.xgte_bin_num is a number which corresponds to the track’s location 
in the cross-gating matrix. 


beam_data.pred_azim is_a bearing value corresponding to where the track 1s 
predicted to be by the Radar Scheduler upon scheduling a track dwell on this 
track. 

beam_data.pred_elev is the predicted elevation of the track. 


beam_data.iow_elev_trk_flg is set to true when the track's eievation is below a 
preset altitude. The actual settings are classified. 


beam_data.iog_ampld_est 1s an estimate of the return signal strength of the radar 
echo Bounced otf this track. 


beam_data.xmit_req_flg is a boolean variabie which when set to true indicates 
Track Processing is requesting 2 dwell be transmitted for this track. 


beam_data.sim_tgt_flg 1s a boolean variable which is set to true when the track 
is a Simulated target. 


nxt_trk is ga orel to the next track node in the Track File. The data fields 
associated with this pointer are defined by the declarations in Table 2. 


i. Table 8 - Frequency Management Interface 


Table 8 is used by the Radar Scheduler Process (consumer) to complete 


formatting of selected radar dwells. The data structure contains frequency and 


waveform information in the following fields: 


waveform is an array from 1 to “max_dwells” of records containing waveform 
information. 


waveform( ).freq_chnl! is the channel frequency to be used by this beam. 
waveform( ).freq_band is the frequency band to be used by this beam. 

waren ).phasel_code is the frequency phase code used for transmitting this 
waveform( ).phase2_code is the second half of the frequency phase code used for 
transmitting this beam. 

waveform ).mti.pri is the PRI code used when the beam is an MTI beam. 


waveform( jaeiad | Jenin is the length or duration of the dwell in 
microseconds if the beam is a MTI beam. 
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e Be pee ate freq is the frequency used to communicate with own 
ship’s SM-2 missile, if the beam is a missile communication bean. 


e waveform( ).msle.dwn_freq is the frequency used by the missile to transmit 
information back to the ship, when the beam is a mussile communication bean). 


e waveform( ).inhib_freq_chnl are the frequency channels which are prohibited to 
this beam. 


j. Table9-LtoR 
Table 9 is the common memory interface between the Radar Scheduler 
Process (consumer) and the Load Evaluation Process (producer). This data structure is 
used by the Radar Scheduler Process to format track dwells and contains oniv one data 
field: 


e trk_tim_ctr_reset is a boolean variable which when set to true informs the 
Radar Scheduler Process to zero out its track time counter. 


kK. Table 10- Wssiie Downlink Interface 
Wopie LOR is ine cOimmon memory data structure between the Radar 
Semeauier Process (consumer) and the Vissile Communications Process (producer). 
Since the actuai data fieids are ciassified. the downlink message is arvitrarily separated 
into eignt parts as follows: 


% mssi_dwaink is an array :orm one to num_mssi_msgs of zecords containing 
(russile messages. 


» imssl_dwnink( ).prt_one 1s an integer variabie. 
e mssl_dwnlnk( ).prt_two is an integer variable. 
e mssl_dwnlnk( ).prt_three is an integer variable. 
e mssl_dwnlnk( ).prt_four is an integer variable. 
e mssl_dwnlnk( ).prt_five is an integer variable. 
e mssl_dwnlnk( ).prt_six is an integer variable. 
e mssl_dwnlnk( ).prt_seven is an integer variable. 
e mssl_dwnlnk( ).prt_eight is an integer variable. 
2. Data Structures Produced 
These data structures are located in common memory. They are used by the 
Radar Scheduler Process (producer) and those processes which are consumers of the 
data. 
a. Table 11 - Search Management Interface 
Table Il is the common memory data structure interface between the 
Radar Scheduler Process (producer) and the Search Management Process (consumer). 


The data structure is used by the Search Management Process to distinguish which 
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search queues require filling. The Radar Scheduler sets the flags when it has used a set 
number of search request beams. The flags are defined below: 


e hs_que_replen is a boolean variable which when set to true indicates that the 
horizon search queue needs to be replenished. 


e ahs_que_replen is a boolean variable which when set to true indicates that the 
above horizon search queue needs to be replenished. 


b. Table 17 - Track Management Interface 

Table 17 ts the common memory data structure between the Radar 
Scheduler Process (producer) and the Track Management Process (consumer). fhe 
Radar Scheduler Process uses the data structure ito hoid the scheduied track dwells 
selected for transmission. The frack Management Process uses the data structure to 
asses its efficiency in prioritizing previously requested tracks. The data fields are 
defined as: 

* sched _irk_beam_iist is an array from one to “max_dweils” of records. 


*  sched_trk_beam_list( ).mode_id 1s a integer variable used to idenufy the radar 
event associated with the scneduied track. 


® sched_trk _beam_lisi( ).trk _file_num is che unique track number ot the scheduled 


* sched _trk_bdeam_lisit ).priority. 
co. fuble 20 - Track Processing [ntersace 
iabie 20 is a common memory interface used by the Radar Scheduler 
Process (producer) and the Track Management Process (consumer). The data structure 
contains information on each of the scheduled dwells for one scheduling interval. As 
dwells are formatted for transmission, the Radar Scheduler Process transmits the 
information. The data fields are defined as follows: 


e stble_spc_pos is an array from one to “max_dwells” of records containing stable 
space position information. 


e  stble_spc_pos( ).azim is the bearing of the scheduled dwell in tenths of degrees. 
e stble_spc_pos( ).elev is the elevation of the scheduled dwell in tenths of degrees. 
e stble_spc_pos( ).x_posit is the rectangular X coordinate of the scheduled dwell. 
e  stble_spc_pos( ).y_posit is the rectangular Y coordinate of the scheduled dwell. 
e stble_spc_pos( ).z_posit is the rectangular Z coordinate of the scheduled dwell. 


e sched xmsn_time is the scheduled transmission time in milliseconds for the 
scheduled dwell. 


ad. Table 32 - Radar Output Interface 
Table 32 is the common memory interface between the Radar Scheduler 


Process (producer) and the Radar Output Process (consumer). It acts as a buffer for 
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the formatted dwells, and supplies information to the Radar Output Process to aid in 


completing the channel I/O control buffer. The data structures in Table 32 are defined 


as follows: 


ptr_r_to_o is a two element array of pointers used to access two linked lists of 
records Containing dwell data. 


ptr_r_to_o( ).dwl_data.mode is the major transmission mode used by this dwell. 
ptr_r_to_o( ).dwl_data.face is the antenna face assigned to this dwell. 


tr_r_to_o( ).dwl_data.sub_mode is a two element array of integers which are the 
requency sub-modes assigned to this dwell. 


ptr_r_to_o( ).dwi_data.dwl_idx is the dwell index number for the current 
scheduling interval. 


na ).dwl_data.beam_purpose is an integer which corresponds to the 
eam s mode value which indicates what purpose the dwell was scheduled for. 


ptr_r_to_o( ).dwl_data.dwl_start_idx is a 32 bit number which is the transmission 
time for the dwell to an accuracy which ts classified. 


tr_r_to_o( ).dwi_data.doct_unbink_gates data has been read from the Search 
Vianagement provided data. 


ptr_r_to_o{ ).dwi_data.clutter_unblnk_gates data is the same form as 
doct_unbDink _zates. 


otr_r_to_0( ).iink 1s a pointer to the next dwell data record in the iinked list. 
é. luble 40 - Output Control Channel Buffer 


iable -0 is a common memory interface berween the Radar Scheduler 


Process (producer), the Radar Output Process (producer), the Radar Control Program, 


and the Radar Channel Control Program (consumer). The Radar Scheduler Process has 


responsibility for filling only a small portion of the data fields which are defined below: 


occb_ptr is_a two element array of RUNG to two linked lists of records 


containing Output Channel Control Butter information. 


occb_ptr(_ ).oa.cntrl_word.rdr_xmsn_on is a boolean variable which when set to 
true indicates that the dwell is to be transmitted. 


occb_ptr( ).om.face is the antenna face assigned to this dwell. 


occb_ptr( eee is the MTI PRI code used by the dwell when it is an 
MTT dwell. 


occb_ptr( ).oh.pri2_mti is the second half of the PRI code. 


occb_ptr( ).ot is a twelve element array of records emulating missile 
conmimunications links. 


occb_ptr( ah )-otmsb emulates a missile communication link when the dwell is 
a nussile dwell. 


occb_ptr( ).ot( ).otlsb also emulates a missile communications link. 
occb_ptr( ).ol.xmit_freq is the transmission frequency used by this dwell. 


occb etl )-ol.rem_freq is the receiver frequency used to receive the return dwell 
signal. 
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occb_ptr( }.0).- ube AD ratedestcup is the group of sub-channel frequencies used to 
transnut this dwell. 


occb_ptr( ).o_f.phsel_code is the first part of the dwell frequency phase codes. 
occb_ptr( ).og.fdbkK1 is the first part of the dwell feedback phase codes. 


occb_ptr( ).oa.cntrl_word.freq_group_slct is a boolean flag which when set to 
true indicates the selected frequency group for this dwell. 


occb_ptr( ).oi.dwl_1_start_time is the start time for the dwell in microseconds. 


occb_ptr( ).ob.detect1_thrsld holds the value of an expected detection range fora 
track tvpe dwell. 


occb_ptrf{ ).ob.detect2_thrsid holds the value of an expected detection range for a 
track tvpe dwell. 


occb_ptr({ ).ob.detect3_thrsld holds the value of an expected detection range fora 
track type dwell: 


occb_ptr( ).oe.truncl_thrsld is a truncation signal level threshold value to assist 
in detecting targets. 


occb_ptri ).oe.trune2_thrsid is a truncation signal level threshold value to assist 
in detecting targets. 


occb_ptr( ).oq.eiey_sector is the sector elevation limits tor this dwell. 
occb_ptr( ).os.dpiy_azim is the bearing che dweil is to be transmitted on. 


OED EDEN ).o_r.dply_eiev is the elevation this dwell 1s to be transmitted on in 
Eorecs. 


oech_ntr( ).os.video_extnt is the signal level expected from this dwell. 
occb_ptr( ).trkK_gate_strt is the starting range for gating a track dwell. 


occb_ptr( ).link is a pointer to the next Output Channel Control Buffer node 
available. 


INTERNAL DATA STRUCTURES 


All data structures that are internal to the Radar Scheduler Process and that 


must be shared by subordinate Radar Scheduler modules are located in the package 


specification of RSMO. The data structures are defined as follows: 


rdrint is a constant that represents the maximum time which can be spent in the 
Beam Selection Module. 


srch_que is a constant used to represent the event type Search. 

Sr_que is a constant used to represent the event type Special Request. 
trk_que is a constant used to represent the event type Track. 

mssl_que is a constant used to represent the event type Missile. 


srch_dwls is a. constant equal to the maximum number of Search events that can 
be scheduled in one interval. 


sr_dwls is a constant equal to the maximum number of Special Request events 
that can be scheduled in one interval. 
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trk_dwls is a constant equal to the maximum number of Track events that can 
be Scheduled in one interval. 


mssi_dwls is a constant equal to the maximum number of Missile events that 
can Be scheduled in one interval. 


rdr_rsrcs is a constant which represents the percentage of radar resources which 
can be used in scheduling beams for an interval. 


ppl is an integer variable used as an index for traversing the priority list. 


intvl_ num is an integer variable used to represent the number of intervals that 
howesbeensexecuted. 


The next data structure contained in RSMO is the Radar Event Control Table. 


This is the primary data structure used by the Radar Scheduler to schedule a mix of 
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radar events for one scheduling interval. ihe Radar Event Control Tabie is a linked list 


of records. The records which act as nodes contain the following fields: 


E: 


ee is @ pointer to 1 Search Node data structure described tn external 
i adDLe 


irk_dwi is a pointer to a [rack Node data structure described in external Table 


ios 


och _data is a record containing the data to be transmitted to the externa! dweil 
ao Explanations for the data lieids in this record can be found in Sections 
ie. 2.d'and ec. 


heamid is a 1 character string used for testing the logic of the Radar Scheduler 
aigoritnm. 


dru is an integer iiso used {or testing the logic of the Radar Scneduler 
aigoritnm. 


nxt_eyent is a pointer which acts as a link to the next Radar Control Table 
node 1n the linked hist. 


rect is a pointer to the head of the Radar Control Table’s linked list data 
structure. 


sp is a pointer to the Search Node data structure described in Table 1. 
tp is a pointer to the Track Node data structure described in Table 2. 


rect_ptr is a pointer to the head of the linked list which makes up the Radar 
Event Control lable. 


pool_ptr is a pointer to Radar Event Control Table record. 
buff_ptr is a pointer to a the data structure described in Table 40. 
cm_ptr is a pointer to the data structure described in Table 32. 


RADAR SCHEDULER MODULE DESCRIPTIONS 


The modules described in this section are subordinate to the Radar Scheduler 


process. A functional description of each of the modules, and any subroutines 


subordinate to them is given below. 
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1. Initialization 

The function of the initialization module is to create and initialize any data 
structures, local to the Radar Scheduler process, that must be shared between the 
Radar Scheduler modules. The creation of these data structures is necessary only for 
access type data structures which form linked lists. Allocation of memory for these data 
structures prior to the execution of the Radar Scheduler process serves to increase the 
efficiency of the main scheduling loop by eliminating the need to allocate memorv for 
each new node during scheduling. This module is executed oniy one time. when the 
Radar Scheduler process is loaded for execution. 

the decision to piace these variables in a separate module instead of the 
package specification for the Radar Scheduler process is based on the principle of 
information hiding. Since these variables need to be shared bv other Radar Scheduler 
modules they must oe in a package specification. If they were placed in the Radar 
Scheduler’s package specification, then modules other than Radar Scheduler modules 
wouid oe able to access them. 

the initialization module does not consume anv common memory interace 
data structures. [t does produce the tniual pool of Output Channel Controi Buiter 
nodes and a pool of Radar Event Controi Table nodes. 

The toilowing data structures are deciared in module specification and are 
local to the Radar Scheduler process: 


e rdrinit,is a constant poses iets the maximum amount of time which can be 
spent in the beam selection mode. 


e srch_que is a constant assigned to the event type search. 

e trk_que is a constant assigned to the event type track. 

¢  sr_que is a constant assigned to the event type special request. 
e mssl_que is a constant assigned to the event type missile. 


e srch_dwls is a constant representing the maximum number of search events that 
can be scheduled in one interval. 


e trk_dwls is a constant representing the maximum number of track events that 
can be scheduled in one interval. 


e sr_dwlis is a constant representing the maximum number of special request 
events that can be scheduled 1n one interval. 


e mssl_dwls is a constant representing the maximum number of missile events that 
can be scheduled in one interval. 


e srch_pent is a constant representing the percentage of radar resources allotted 
to each search dwell. 


e trk_pcent is a constant representing the percentage of radar resources allotted to 
each track dwell. 
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sr_pcent is a constant representing the percentage of radar resources allotted to 
each special request dwell. 


mssl_pcnt is a constant representing the percentage of radar resources allotted 
to each missile dwell. 


The following data structures are used to control program execution: 
ppl is an index used to control traversal of the priority event list. 


intvl_ num is used to keep track of the number of intervals that have been 
executed. 


sp is a Working pointer for traversing a linked list of search nodes. 
tp is a Working pointer for traversing a linked list ot track nodes. 
ris a working pointer for traversing the Radar Event Control Table. 


rect_ptr is a pointer which always identifies the first node in the Radar Event 
Control Table. 


pool_ ptr is a pointer which always identifies the first node in the pool of 
available Radar Event Control Table nodes. 


buff_ptr always points to the current Cnannel [;O Control node. 
em_ptr alwavs points io the current Radar Output node. 


The Radar Event Control fable is the primary data structure used by the 


Radar Scheduler process to schedule the mix of radar events for eacn interval. This 


data structure contains five major fields: 


>. 


meamaty! .S a (Mirror image of the seareh node data structure (see Section C.l.a 
of this chapter). 


trk_dwl is a mirror image of the track node data structure (see Section C.1.b of 
this chapter). 

ocb_data contains the information that is transmitted to the external dwell 
buffers. An oh aon of the data fields in this record is is given in Sections 
C.2.d and e of this chapter. 


beamid corresponds to_the beam identifier used by the srch_dwl or trk_dwl “bid” 
data field and is used for testing the logic of the Radar Scheduler algorithm. 


dru holds the total percentage of radar resources consumed after the selection of 
the current beam. 


nxt_event is a link to the next node in the linked list that makes up the Radar 
Event Control Table. 


There are no data structures locally declared within this module body. The 


procedures make_pool and ex_buff_create are declared local to the module body and 


are used for the initialization process. An algorithmic description of the Initialization 


module is given in Figure 4.2. 


a. Make Pool 
The procedure Make Pool is derived from the PL/I-80 version of RSMIA. 


This procedure is declared within the body of the Initialization module described 
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Begin Radar Scheduler [nitialization; 


Create a pool of Output Channel Control Buffer nodes; 
Create a pool of Radar Output Interface nodes; 

Create a pool of Radar Event Control Table nodes; 
Initialize working pointers for Radar Scheduler; 


End Radar Scheduler Initialization: 





Figure 4.2 I[nitialization Module Algorithm. 


above. The purpose of this procedure is to make a pool of Radar Event Control Table 
nodes. 

The procedure declares two local pointers, “p” and “q” for creating a linked 
list of Radar Event Control Table nodes. The variable numb_nodes stands for the 
number Of modes tasce wrested. 

b. Create Dwell Buffer Pools 

The procedure Create Dwell Buffer Pools is derived from ihe we iaaas 
version of RSMI1B. The task of this procedure is to create two circular linked lists for 
the Output Channel Control Buffer and two circular linked lists for the Radar Output 
Interface nodes. 

The procedure declares the following working pointers locally for the 
purpose of creating the circularly linked lists: 

e pl and ql are Output Channel Control Buffer pointers. 
e p2 and q2 are Radar Output Interface pointers. 
The following data structures are used for execution control flow within the 
procedure: 
e length is the length of the circular linked lists being created. 
e ctr isa variable used to keep track of the number of nodes being created. 
e iis an index to control the number of circular linked lists being created. 
2. Swap Dwell Buffers 
Functionally, the Swap module manages the Radar Scheduler’s access to the 
two external dwell buffers described above. The Swap module must insure that a 


minimum number of available nodes are present in the pool for consumption by the 
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Radar Scheduler during each scheduling interval. The Swap module is called from the 
beginning of the main control loop in the Radar Scheduler process. 

The Swap module consumes the global pointer variables to the common 
memory interface pools of Output Channel Control Buffer and Radar Output nodes. 
This module does not produce any common memory interface data structures. The 
algorithm for this procedure is given in Figure 4.3 

The input/output parameters are the only data structures declared locally and 
are passed bv reference. [hese data structures are: 

* buif is a pointer to the Output Cuannet Control Buffer. 
* em is a pointer to the common memory interiace Radar Output dutfer. 


® index is the index to the current buffers. 


| Begin Swap Dweil duifers: 
| [F the index is two then 
: Bie inde, ers one: 
ese 
the index gets two: 


end if: 


change dwell buffers; 
End Swap Dwell Buffers; 





Figure 4.3 Swap Dwell Buffers Algorithm. 


3. Radar Event Priority Enhancement 

The function of this module is to ensure that the mix of radar events being 
considered for selection is optimized by their respective priorities in the Radar Event 
Priority List. The design is based on Digital Equipment’s VMS Operating System 
Priority Enhancement Algorithm. Radar events having base priorities lower than the 
enhancement value have the capacity for dynamic prioritization. The procedure 
examines each event to see if its priority can be enhanced. If the event’s priority needs 
to be enhanced, its priority value is increased. Execution of this module takes place 
prior to the Beam selection and Synchronization. When executed, the module 


produces a reprioritized Radar Event Priority List. [Ref. 5: p. 76] 
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Begin Priority Enhancement; 


Reset the last time executed for all radar events; 
Traverse the enhanceable portion of the priority list; 


If the event is enhanceable and its queue is not 
empty then 


If the time between scheduling of the event is 
greater than the allowed time then 


[f the event's current priority 1s above | 

| rhe standard ennancement vaiue but below 
fne 1OWESE enhancement valve tien 

| Increment the events priority bv {; 

| Else 


increment the event's priority ov 4 but 
not above the low enhancement value: | 


Bad Eniance: : 

| Reorder the pamiy event lis | 
Bod Wasi tine exceed. | 

End [Traverse the omonmiy ist: | 


End Priority Enhancement: 
Figure 4.4 Priority Enhancement Algorithm. 


The enhancement module does not consume any common memory interface 
data structures. The input parameter to this procedure is the variable elapsed_time 
which 1s passed by value from the Radar Scheduler process. The parameter 
elapsed_time is used to update the Radar Event Priority List Itx data field. The 
algorithm for the Enhancement module is presented in Figure 4.4 

This module uses the procedure rip] to remove and insert a node from its 
present position in the priority list to its new position in the list. The procedure is 
declared locally in the Enhancement modules body. 

a. Remove and Insert 

The Remove and Insert procedure is part of the Enhancement module. 
The procedure removes a node from its current position in the priority list, inserts the 
node at its new priority and then resets the current priority values for the other events. 


The following data structures are declared locally: 
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e curnt is an input parameter passed by value representing the event's current 
priority in the list. 


e new_p is an LR parameter passed by value representing the event’s new 
priority in the list. 


® pp is an index used to traverse the priority list. 

e b4isa variable that holds the last value of the index “p”. 

e templ and temp2 are temporary storage variables for the indexes. 

4. Radar and Computer Synchronization 
The function of this module is to ensure that the Radar Control Group time is 

synchronized to the radar time. The scheduler waits for a clock update from the radar. 
According to AEGIS performance specifications, the scheduler must schedule dummy 
dwells, if the update is greater than two seconds. The Radar Scheduler design calls for 
the process to be “blocked” until synchronization has been accomplished. The 
scheduler is made “readv” upon synchronization of clocks and Track File time updates. 
The Radar Scheduler must alert the RSC (or in our case the Switch Action and 
Display process) to the pending update. Tnis requirement 1s not implemented in this 
version of the scheduler mode!. For clock updates of less than two seconds. immediate 
synchronization is carried out and the the current scheduling interval is modified to 


Bemeorm with the new Radar Control Group time. [Ret. 5: p. 78] 


Begin Synchronization; 


If I_to_R.resvnch_time minus Radar Scheduler time is 
greater than 2 seconds then 


Wait until the Radar Scheduler time equals the 
resynch_time; 


Else if the resynch_time minus Radar Scheduler time is 
reater than or equal to zero but less than or equal to 
seconds then 
Radar Scheduler time gets radar time; 


End Synchronization; 





Figure 4.5 Synchronization Algorithm. 


This module consumes the synchronization variable within the Radar Return 


(input) Interface data structure. It does not produce any common memory interface 
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data. Real time data is produced for use by the Radar Scheduler when a clock update 
OCCiis: 

The modules local data structures have not been designed. The algorithm for 

Radar and Computer Synchronization 1s given in Figure 4.5. 
5. Beam Selection Routines 

This module contains procedures used in the Beam Selection process of the 
Radar Scheduler. The code for the Beam Selection process is actually part of the Radar 
Scheduler code and the functional description for Beam Selection is given there. This 
module is a package containing two procedures and a function. Their functional 
descriptions are given in the following subsections of this section. 

This module contains one local data structure, a working pointer p which is 
used by the routines in this module’s body. The pointer is declared outside of the 
routines inorder to increase their e:fictency and prevent neap or stack over flow which 
wouid occur bv repeated calls to these procedures; function. 

this module does not consume or produce any common memory data 
structures. 

a. Add Linked List 

Functionally, the procedure llend is used to tnsert a Radar Event Control 
Table node at the end of a linked list. This procedure is derived form the PL/I-80 
module RSM3A. The procedure declaration is contained in the Beam Selection module 
described above. 

The parameters to this procedure are pointers, q and s, which are passed by 
reference. The pointer q points to the head of the list. The pointer s points to the node 
which is to be inserted at the end of the linked list. The pointers consumed in this 
procedure are Radar Event Control Table data structures local to the Radar Scheduler 
modules only. There are no common memory interface data structures consumed by 
this procedure. 

There are no local data structures produced by this procedure. The 
working pointer p is declared in the body of the Beam Selection Routines module. 

The algorithmic description for this procedure is given in Figure 4.6. 

b. Get RECT Node 

The function Get RECT Node locates the first available Radar Event 
Control Table node from the pool and returns a pointer to that node. The function 


also resets the head of pool’s linked list to the next available node. 
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Begin llend; 


If first list q is null then 
lista gets NOCE 5, 


Else 


Find end of list q; 
End of list q gets node s; 


End Jlend: 





Figure 4.0 {lend Algorithm. 


ee 


There are no common memory interface data structures consumed by this 
procedure. 

Wiener ace Glom Ocal Uatametnuciires soroduced by this procedure. the 
working pointer p is deciared in the body of the Beam Selection Routines module. 


774 
‘ 
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he aigorithmic description of this function ts given in Figure 4.7 . 
SENET TSS TT ne 


pecmeger REC Node: 
[f poolis empty then 
Create a new pool pointer; 
Eygtal 1m 
p gets pool pointer; 


pool pointer gets next node in linked list; 


Return pointer p; 
End Get RECT Node; 





Figure 4.7. Get RECT Node Algorithm. 


c. Free RECT Node 
Functionally, this procedure returns an unused Radar Event Control Table 
node to the pool of available nodes. The procedure Free RECT node together with the 


function Get RECT Node are used to manage pointer storage. 
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There are no common memory interface data structures consumed by this 
procedure. 

There are no local data structures produced by this procedure. The 
working pointer p is declared in the body of the Beam Selection Routines module. 

Figure 4.8 gives the algorithmic description of the procedure Free RECT 
Node. 


Begin Pree REC Node: 
| et node ds link to nuil: 
| If pool is empty then : 
| pool pointer gets node q; : 
Else 
insert node y at end of pool list: 
pelea) 


End Free RECT Node: 


Ce) 


rigure=.8 Hree REC; Node Algenthm. 


6. Supplementary Dwell Processing 
The function of the Supplementary Dwell Processing module is to do sufficient 
processing on each selected beam to ensure enough dwell information is generated for 
correct transmission by the radar. The minimum information required is:- 
e. the scheduled dwell’s transmission time, 
e. the dwell index number, 
e. the stable space bearing and elevation beam position, 
e. the radar end the dwell is to be transmitted from and, 
®. the radar transmission parameters. 
The data structures used by this module have not been decided upon [Ref. 5: p. 82]. 
The algorithm for this module has not been written. 
7. Dwell Array Face Assignment 
The function of this module is to assign an array face to each selected beam. 


The NPS model assumes that the ship is not underway and on a heading of 000 
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degrees true, therefore the model does not emulate gyro inputs. Hence, stable space 
coordinates equate to ship’s deck space coordinates. The result of this is that the 
transformation matrix and array face bearing limits generated by the Beam 
Stabilization process are constant. The Assignment module is used to select the arrav 
face for the beam’s transmission by comparing the beam’s bearing to the limits found 
in the array face bearing limits table. This assignment consumes the common memory 
interface data for array face bearing limits. No common memory data is produced. 
[Ref. 5: pp. 82-83] 

No internal data is consumed by this moduie and there are no locally declared 
data structures in this module. [t does produce the face assignment data for the 
selected beam which 1s located in the Radar Event Control Table data structure. 

This module is not implemented in the Radar Scheduler model. An 


algorithmic description of the module is given in Figure 4.9 . 





i 
Begin Dweil Array Face Assignment; 
If beam bearing 1s between first limits then 

Beam face assignment Yets one: | 
Else if beam) oearing is between second limits then 

Beam face assignment gets two; 
Else if beam bearing is between third limits then 

Beam face assignment gets three; 
Else 


Beam face assignment gets four; 


End Dwell Array Face Assignment; 





Figure 4.9 Dwell Array Face Assignment. 


8. Comply With Radar Doctrine 
The function of this module is to ensure that the selected beam’s transmission 
parameters comply with the doctrines imposed by the program operators. 
The common memory data consumed by this module includes the radar 


silence flag, produced by the Command and Decision User services process, and three 
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doctrine commands produced by the Switch Action and Display process. The doctrine 
commands consumed are: 
e. the radar transmitter power flag, 
e. the radar power option flag and, 
e. the inhibited radiation regions. 
This module does not consume any internal data and there are no locally declared data 
structures. [Ref. 5: p. 84] 
This module does produce data for the Output Channel Control Buffer data 
structure of the Radar Event Control Table. 
This module is not implemented in this program. The algorithm for this 


module is presented in Figure 4.10. 


| Begin Comply With Radar Doctrine: 
if the radar silence tlag is false then 


| Set the transmitter power based on the flags set 
| ov the switch Action and Displav process: 

if beam’s ite within the inhibited radiation 
regions then 


a 


Set transmitter flag to false; 
End if; 
Else 
Set transmitter flag to false; 
End if else; 
End Comply With Radar Doctrine; 





Figure 4.10 Comply With Radar Doctrine Algorithm. 


9. Satisfy SPY-1A Hardware Constraints 
The function of this module is to optimize the available radar resources for 
dwell transmission during each scheduling interval. The AEGIS Program 
Specifications call for the use of digital filters to optimize dwell transmission 
parameters. In the NPS model, a fixed resource percentage scheme is used to calculate 


the amount of radar resources consumed. Each radar event is assigned a constant 
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resource percentage requirement. As the requested beams are selected for scheduleding, 
their constant resource requirements are subtracted form the total radar resources 
available. The total radar resources for the start of each scheduling interval is 100°%. 
Beams are no longer selected once the available resources have been depleted. filenum 


rsm9 





Begin Sausty Hardware Constraints: 


| Ascertain the beams identity and set 
Percent edual 10 Neams ailoved resource; 


Radar resources used zets radar resources plus percent; 
If radar resources used 1s less than 100°% then 


set dweil resources used to 100% munus the 
Bdcar resOlurces used; 


Set the hardware constraints {lag to true: 


| Set radar resources used to radar resources used 
minus percent: 


| BEE the hardware constramts ilag to iaise: 


End uf else: 


End Satisfy Hardware Constraints; 





Figure 4.11 Satisfy Hardware Constraints Algorithm. 


This module does not consume or produce any common memory data 
structures. 

The input parameters to the Satisfy SPY-IA Hardware Constraints procedure 
are as follows: 


e id is.a que type identifier used to determine what percentage of resources are 
required. [This parameter is passed by value. 


e rru is an input/output parameter containing the running total of radar resources 
used for the current scheduling interval. The parameter 1s passed by reference. 


e dru is an input/output parameter containing the total percentage of radar 
resources consumed after selection of the current beam. 


e hwe is.a boolean output parameter which is set to true if the hardware 
constraints are satisfied. The parameter is passed by reference. 


The following data structures are locally declared: 
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e srch_pent is a constant representing the percentage of resources allotted for 
each search dwell. 


e sr_pent is a constant representing the percentage of resources allotted for each 
Special request dwell. 


e trk_pcent is a constant representing the percentage of resources allotted for each 
track dweil. 


e mssl_pent is a constant representing the percentage of resources allotted for 
each missile dwell. 


e percent ie temporary variable used to hold the percent of resources being 
considered. 


The algorithmic description for the Satisry Hardware Constraints procedure is 
oresented im, Pigie oun - 
10. Place Dweils Into Dwell Buifers 
The function of this module is to cransmit the formatted dweil information to 
the two external dweil butlers. rormatting is compiete upon satisfving the aardware 
constraints. [f the selectea beam satisries those constraints. then it 1§ transmillledscomeme 


externai dweil butfers for radar transmission. 


Begin Fil @xtemal Dweuls: 


Point co the current Output Control Channei Buffer: 


Set the Output Control Channel Buffer data structure to 
the ocb_data structure of the Radar Event Control Table; 


Point to the Current R_to_O data structure; 


Set the R_to_O data structure to the appropriate data 
fields in the Radar Event Control Table; 


End Fill External Dwells: 





Figure 4.12 Fill External Dwells. 


This procedure consumes the current pointers to the external dwell buffers 
which are passed by reference in the following input/output parameters: 


e pl and p2 are pointers to the Output Control Channel Buffer common memory 
data structure. 


e p3 and p4 are pointers to the R_ to O common memory data structure. 
® pr is a pointer to the Output_Control Channel Buffer data contained in the 


internal Radar Event Control Table data structure for the current the current 
selected beam. 


a2 





There are no other locally declared data structures in this module. Figure 4.12 

gives the algorithmic description of this procedure. 
11. Radar Load Evaluation 

The function of this module is to maintain a running total of the amount of 
radar time being expended in tracking targets. The total is reset to zero each time the 
Load Evaluation process tells the Radar Scheduler to reset its’ track time counter. 
Beam transmission data is then sent to the Load Evaluation process. This module is 
executed only if the selected beam has satisfied the hardware constraints. [Ref. 5: p. 
87] 

The Load Evaluation module consumes the common memory interface from 
the load evaluation process (TABY.LIB). The data structure consumed is the track time 
counter reset flag. The common memory interface information produced by this 
moduie includes information concerning the transmitter duty factor for the current 
beam. the totai time spent on dummy dweils during the interval. and the number of 
horizon and above horizon search beams that were not scheduled during the 
interval.ihis information is placed in the common memoorv intertace or TABO65.LIB. 
[Ref. 5: p. 88] 

Internal data consumed ov this module includes the beams identity and the 
percentage of resources used by the beam. No internal data is produced oy this 
module. Also, this module does not use any locally declared data. 

The algorithm for Load Evaluation is given in Figure 4.13 . 

12. Elapsed Time This Interval 

The function of this module is to compute the amount of time spent 
scheduling and formatting the radar beams during the interval. 

No common memory interface data is consumed or produced by this module. 

The module does consume the internal Radar Scheduler data structure 
rs_time. Each time the module is executed a new value for the elapsed time 1s 
produced. 

The Elapsed Time This Interval module uses the following local data 
Structures: 

¢ et is an input/output parameter that holds the elapsed time. 
¢ tim is an input/output parameter that holds the Radar Scheduler time. 
e oltim is a variable to hold the old time value. 


Figure 4.14 shows the algorithm used by the Elapsed Time procedure. 


oe) 


Begin Radar Load Evaluation; 


Increment the Duty factor variable (fore or aft); 


Increment the phase shifter variable (fore or aft); 


If the track time counter reset variable is true then 


Sel (hack tlmMe counter ber zero- 
If selected beam is a track or missile beam then 


Increment the track time counter: 
if the selected beam is a dummy dwell then 
[Increment the dummy dwell time variable; 
If the selected beam is a search beam then 


decrement the unsked search beam variable; 





| End Radar Load Evaluation: 


| | 


Figure 4.13 Radar Load Evaluation Algorithm. 


Begin Elapsed Time; 
Old time gets the value of the real time; 
Real time gets the current value of real time; 


Elapsed time gets elapsed time plus real time 
minus the old time; 


Return the new values of elapsed time and real time. 
End Elapsed Time; 


Figure 4.14 Elapsed Time Algorithm. 


13. Radar Event Control Table Analysis 
This module is designed to dump selected fields from the Radar Event Priority 
List and the Radar Event Control Table into a file called RSOUT.TXT. When the 
Radar Scheduler program completes its execution, the file will contain the requested 


beams from the Radar Event Priority List and the selected beams from the Radar 
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Event Control Table. The results can be analyzed by comparing the requested beam 
data to the scheduled beam data. 





Begin Radar Scheduler Dump; 


Traverse the Priority Event List; 
If Priority Event List status is true then | 
[fF search or speciai request beam queue then 
| Traverse search or special request beam queue: 
Display beam identifier: 
increment 5eam position count: 
End traverse search or special request beam queue; | 
Else 
| Traverse track of missile beam queue: 


Oispiay beam identifier: 
[ncremient beam posiuon count: 


Ed tgagerse track ormmissilesbeam aueue: 
Engel else: 

: Stare Hew imewdnd disolaveseam positions: 

Hise 

Display “no requests this interval’; 

End if else; 
End traverse Priority Event List; 
Traverse Radar Event Control Table; 

Display beam identifiers; 


Display dwell number; 
Display resources; 


End traverse Radar Event Control Table; 
End Radar Scheduler Dump; 





Figure 4.15 Radar Schedular Dump Algorithm. 


This module consumes the Radar Event Priority List common memory data 
structure. It does not produce any common memory data. 
This module also consumes the Radar Event Control Table internal data 


structure. It does not produce any internal data. 
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The local variables used in this module are defined below: 
e dsh is a string constant containing a dashed line for formating the output. 


e sptr is a working pointer used in traversing the Radar Event Priority List’s 
search or special request beam queue. 


e tptr is a working pointer used tn traversing the Radar Event Priority List’s track 
or missile beam queue. 


¢ pis a working pointer used in traversing the Radar Event Control Table. 
e Control Table. 
The dump procedure deciared in this module uses the pointers described 
above. The procedure aiso defines the following local data structures: 
¢ ctr is used as an index ior traversing the Radar Event Pnority Event list. 


e start is a vanable used to keep track of the starting vaiue used in the “FOR” 
loop control structure. 


*~ cin is a Variable used to Keep track af the Queue position: 
ihe the alsonthm for this procedure 1$ presented maiemre 415" 
i4. Free Radar Event Controi Capie Viemory 
The function or this moduie ts to return the Aaaar Event Control Table nodes 
to the pooi or available nodes at the end of each scheduling interval so they can ube 
reused. This is accompiisned by linking the Radar Event Control :able 10 (ieee 
the node poot. then as the nodes are required. the Get RECT Node functiomeamamaene 


RSM5 module returns them to the Radar Event Control Table. 


Begin Free Memory; 
Find the end of the RECT node pool; 


Insert the Radar Event Control Table 
at the end of the RECT node pool; 


Return null Radar Event Control Table pointer; 


End Free Memory; 





Figure 4.16 Free Memory Algorithm. 


The Free Memory module does not produce or consume any common 


memory data structures. 
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The module consumes the internal data structure, Radar Event Control Table, 
and reproduces the pool List. 
Wite module produces the jocal pointer.p fer use ‘Sy.the Free Memory 


procedure. Figure 4.16 contains the algorithmic description of this procedure. 


F. RADAR SCHEDULER COMMON SERVICE ROUTINES 

The Common service routines used are designed to be accessible to all the major 
processes. For simplicitv, the common service routines used by the Radar Scheduler 
program have been inciuded in the Global module. Some of the previousiv designed 
Common Service Routines functions have been replaced bv standard Ada packages. 
such as the type conversion and string manipulation functions. The procedures await, 
advance, ticket etc., are expected to be replaced by MCORTEX procedures and appear 
onlv as stubs in this program. The design decisions for the Common Service Routines 
implemented in this modei are included here. 

i. Random Number Generator 

The Random Number Generator is a function that returns a pseudo-random 

Mermoer, {he function uses a congruence algorithm to generate numbers in the range 


fporm zero to the t. I[n this case t” is 31099. 


Begin Random Number Generator; 
If this is the first call to this module then; 


set x equal to seed number; 


Compute the random number; 


a id 


set “x” equal to the random number; 


a os 


Return the value of ”x” to the caller; 


End Random Number Generator; 





Figure 4.17 Random Number Generator Algorithm. 


This routine does not consume or produce any common memory or Radar 


iid dd 


Scheduler data structures. The module does consume the variable ”x” which 1s declared 
in the Global package body along with the function. Unlike the function, the variable 


a” ” 


x” is hidden from the users of the Random Number Generator. This variable is 


i) 


initialized by the Global package body and thereafter set to the pseudo-random 
number returned after each execution of the function. The variable “x” is then used as 
a seed for each successive call to the function. 
The data structures defined by this function are: 
* ais aconstant approximately equal to the square root of “t”. 
e bis aconstant that is relatively prime to “t”. 
¢ tis aconstant which defines the upper bound of the numbers generated. 
* yisa temporary variable used to calculate the random number. 
Figure 4.17 presents the algorithm for the random function. 
2. Clock Routine 
This Common Service Routine is designed to simulate a real time millisecond 
clock. Each time this function is called the variable time is incremented. This new value 
of time is then returned to the calling process. 
This module does not consume or produce any common or internal data 
SiMlctures: 
The only data structure used bv this function is the variable time. which 1s 


declared in the package oodv of the Global module. The Clock Algorithm is shown in 


Begin Clock; 


Increment “time”: 
Return the value of “time”; 
End Clock; 





Figure 4.18 Clock Algorithm. 


3. Initialize Radar Event Priority List 

The purpose of this procedure is to initialize the data fields in the Radar Event 

Priority List. It is designated as a Common Service Routine because it must be 
executed prior to any process using the list. 


This routine does not consume any common memory data structures. 
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No Radar Scheduler internal data structures are produced or consumed by 
this routine. 

There is only one local variable declared by this procedure, the variable “1”, 
which is used as an index for traversing the Radar Event Priority List. 


The Initialization algorithm is presented in Figure 4.19. 





Begin [nitialization: 


| Por “i gets one to maximum number or events loop: 
| Set iniuiai values for the common data Lieilds: 


the index “1° and the description given in 


Assign allowed execution periods based on 
Taole &prilst; 


Assign beam queue types maximum nodes oased on 
| givesindex < and the descmption given in 
| apie a Dri1ist: 
| Se enetMian Oo tne mext event in the list: 
Bad 100D: 
eset last link 10° Zero: 


| VSSIEN EVENt names maccordance with i: apie écprilst: 


mead initialization: 





Figure 4.19 Priority Event List Initialization Algorithm. 
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V. TEST PLAN 


The testing requirements for the NPS model of the Radar Scheduler process have 
a limited set of goals. The primary goal is to test for logical correctness and secondarily 
to test the performance of the code generated by JANUS/ADA‘s compiler. 

Testing for logical correctness entails verifying that the program couforms to its 
specifications, impiements the design algomtlim. and produces the required output. 
Testing of the Radar Scheduler orocess for this thesis was done primary by a “bottom 
up”, “white box” approach. The reason for taking this approach as opposed to a top 
down approach is that the basic design had already been implemented once in the 
PL, {-80 version of the code. Since this was the case, it was ielt that the OVerciiieamaa 
was sound and there was very little risk in implementing znd testing the modules irom 
the bottom uv. Furthermore. this uilowed for more exteusive testing, as Theremivasmmeme 
need for module stubs. 

-\ test harness was designed for each module with an etfort towards exercising, as 
much us possidie. each orancn of the code for vorrect execution 2nd robuUstiessaueme 
subordinate moduies were tested first. The test Marnesses were chen zxpanded {£0 
incorporate the modules at the next higher level. At each phase of the testing the test 
harnesses were modified to allow the input of relevant data to exercise the branches of 
the code and then record the results for examination. In some cases print statements 
were inserted into the code to ensure that a particular branch was being executed 


properly. 


A. DESIGN AND DOCUMENTATION OF TEST MODULES 
1. Search Management Test Harness 

The Search Management test harness is made up of two modules, the Search 
Management Initialization module and the Fill Search Queue module. Collectively 
these two modules provide the search and special request beams for the Radar 
scheduler Rrecess, | 

The Search Management Initialization module is executed once. Its’ purpose 
1s to allocate memory for search nodes (TABI.LIB), and create empty request queues 


for each search and special request event in the Radar Event Priority List (TABO.LIB). 
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The Fill Search Queue module is responsible for filling the search and special 
request queues with the proper beam data. The data supplied by this module includes 
the beam mode, a unique beam identifier, beam position, instrumented range, blanking 
gates, end of frame indicator, and a requestor identity. This design version imposes a 
static set of beam requests, for test purposes. Whenever the module is executed, the 
same set of beam requests are placed in the queues. The static set of beam requests are 
used to facilitate the data analysis of the Radar Scheduler and is not meant to 
accurately model the Search \ilanagement process. The source code for the Search 
Management modules is contained in Appendix D. 

2. Track Management Test Harness 

The Track Management test harness 1s composed of the Track Management 
module (TRCM) and a Track Management [nitialization module (TMM1). The 
Initialization module is designed to allocate memory for track nodes (TAB2.LIB) and 
Greate sinpty request queues for each track and mussile event in the Radar Event 
Priority List (TABO.LIB) 

The main Track Management module is used to search through the Track File 
correlating track modes to radar track event modes. When a correlation ts found. the 
Beleneis added to the Priority Event Lists request queue. This module does not 
accurately model the Track Management process and again is used only for testing the 
Radar Scheduler Source code. The source code for these modules is located in 
Appendix D. 

3. Detection Processing Initialization Module 

The Detection Processing Initialization module (DPM) creates the Track File 
and initializes its data fields with viable data for testing the Radar Scheduler. The 
number of Track File nodes initialized is determined by the test harness operator at run 
time, when he is directed to provide the “number of tracks” to be initialized. 
Calculation of the data field values in the track node are based on the values returned 
by the pseudo-random number generator. Therefore successive runs of the test harness 
with identical input from the operator will generate the same Track File data each 
time. The source code for this module is located in Appendix D. 

4. Operator Interface Module 

The Operator Interface module provides the user of the test harness the ability 

to alter the number of tracks to be initialized, the desired number of intervals to be 


run, and how often the results are to be displayed. Actually the results are sent to a file 
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that can be examined by the user after the test run. A short messages is printed to the 
screen whenever results of the scheduling interval are sent to the file. This can also be 
used to time the scheduling interval loop without the overhead of the routines that are 
only executed once to initialize the data structures. 

The operator is cautioned that using a very large number for the number of 
intervals and a small interval display delay period will generate a very large file of test 
results and may cause a heap or stack overflow. If the operator desires such a run, 
then the print functions in RSM13.PKG can be easily modified to print to the screen, 


by eliminating the word “Text” from the print commands. 


B. DATA ANALYSIS METHODS 

The Radar Scheduler model was designed so that the results of any particular 
scheduling interval may be recorded in the Hle RSOUT.TAT. For each scheduling 
intervai being recorded, the output file holds a section of information on the requested 
oeams from the Radar event Prioritv List and a section of information on dwells 
scheduled from the Radar Event Controi faole. 

The requested beam section shows the scheduling intervai number and lists the 
events in their current priority order. Along with each event is a list of the requested 
oeams if any, and their position in the request queue. All the beams are identified by a 
unique beam identifier. 

The scheduled dwell section shows the interval number the dwells were scheduled 
in and a list of all dwells scheduled. For each dwell the following is provided: 

e. the unique beam identity of the dwell, 


e. oe percentage of resources left after formatting the selected beam into a dwell, 
an 


e. the dwell index number of the selected beam. 
The Radar Scheduler’s output is analyzed by comparing the requested beam 
identities to the selected beam identites of the scheduled dwells. The results recorded 
over several intervals indicate how well the model is optimizing the radar resources and 


if the radar events are being scheduled efficiently. 


C. TIMING ANALYSIS 
To test the timing of Radar Scheduler program, a short message is sent to the 
screen each interval display delay period. When the first message is displayed, the 


Radar Scheduler has completed its initialization of data structures and completed the 
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number of scheduling intervals equal to the display delay period. In order to avoid the 
initialization overhead at the start of the program, timing must start when the first 
message appears and not when the program 1s first executed. Then the operator may 
end timing on any later interval display delay period. This way the operator can get a 
good approximation of the time it takes to complete one scheduling interval. 

In order to calculate the average scheduling interval time, the overhead from the 
terminal display and writing to output file must be accounted for. To account for this, 
the assumption is made that the time to print to the screen and dump the results to the 
output file is approximateiv equal each time it occurs. [n other words. the interval 
display procedure takes approximately the same amount of time each time it is 
executed. 

= it equal the total time recorded for the test run. Let “Td” equal the time it 
Sees Or One ¢xecution of the display procedure. Let “t1 equai the execution trme {for 
Beemer eduiimy interval. © oO calculate “[1 the foilowing test procedure ‘vas used: 


® three runs of the Ragar scheduler were made_using the same input. The results 
were recorded and their average was used as “Tr”. 


a. The interval dispiay delay period was set on 500. 


The number of intervals was set to 1000. 


o 


{imung was started on the first intervai dispiay delav period, 500. 


©) 


d. Timing was stopped on the last interval display delay period, 1000, which 
caused only the last display to be included in the total time recorded. 


e. Three runs of the Radar Scheduler were taken again using a new interval 
eeplay. ae esol? Wie the Tun times were sao rile and again the average 
a. The interval display delay period was set on 100. 
b. The number of intervals was set to 1000. 
c. Timing was started on the fifth interval display delay period, 500. 
d. Timing was stopped on the last interval display delay period, 1000, which 
caused five display times to be included in the total time recorded. 
For the first set of runs the following equation holds: 
Trl = 500T1i + Td. 
The second set of runs uses the formula: 
2 —s00T1 + STd. 
Solving the two simultaneous equations for T1 yields: 
T1 = (5Trl-Tr2)/2000. 
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Test runs were made of the code generated by JANUS/ADA compiler with all 
the standard pragmas, and then again on the code generated when the pragmas were 
turned off. The pragmas that were turned on and off during compilation are shown at 
the beginning of each source code module. For consistancy, all the modules include the 
Same pragma statements. The pragmas that were turned on and off are: arithcheck, 
rangecheck, debug, and enumtab. 

The arithmetic check pragma controls the generation of arithmetic overflow 
checks. Code is generated during compilation to check all mathematica] expressions 
when this pragma is turned on. [Ref. 6: p. B-1] 

The range check pragma controis the generation of range checks for subrange 
variables and array subscripts. The range check code 1s generated at compiie time when 
the pragma ts turned on. [Ref. 6: p. B-2!] 

The debug pragma controis the generation of itnme number and procedure names. 
This tniormation is used by the waikback which ts generated aiter a run-time error. The 
code generated when this pragma is on wouid only affect performance when a run-time 
error OCcULS es Nel. Oo abam 

The enumerauon table pragma controis the generation of enumeration tables. 
these tables are only necessarv when the programer is doing [,O with enumeration 
tvpes. ihe generation of these tables at compile ume does not aifect pertormance, out 
it does use a lot of storage space. [Ref. 6: p. B-1] 

Since the above pragmas are turned on by default, they have been explicitly 
turned of in the code. They can be turned back on at compile time by the conditional 
compilation feature. When this feature 1s off, as it is by default, the lines preceded by a 
"@” are treated as comments. If the conditional compilation is turned on with the “c” 
command at compile time, then the lines preceded by the “@” symbol are compiled. 
[Ref. 6: p. B-l] 

The first executable code was generated with the pragmas on and the second was 
generated with the pragmas off. The test results are shown in Table 4. 

Run-time test results of the code produced by the JANUS/ADA compiler showed 
almost a two to one increase in speed when it was recompiled with the arithmetic and 
range checking features turned off. This shows that although there was a significant 
increase in speed, it was not without sacrificing some of features that the Ada language 
includes. Even with the pragmas turned off, the best speed of 213.4 milliseconds ts still 


ten times the median scheduling interval time of 21 milliseconds required. 
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TABLE 4 


Pein GiaviAINCE RESULTS 


PRAGMAS ON 


OL NCEVSEIS QMS! UNSUNG) GSS S, 
Meer OF VINDERVALS: 2.5... 500sc cece nae Jl 
Mbeya eigey DEGAY: ......00625068 2 

Z 





fen OF ENTERVALS TIMED: ........... 
See, RON PEME Trois 2s ww es 


Been ee OF TRACKS? fe ee ie ee ee ee 5) 
Meee OP INERR VALS s 2. ee ce ee ee L 
eee DTS RAY DECAY: ....-5+2+se00% 1 
eee Ge en UN TIME TrZ: .. 3.1.1 ce ee eee Z 


TIME PER SCHEDULING INTERVAL "Ti": ... Q. 
INI OBS JSG 1502) Di iz 


a) 
Hn 


7 sec/int 
int/sec 


Meese OF TRACKS: ......-...-.-ceceeee 50 
MUMSER OF INTERVALS: ................. 10 
MMGRVAL DISPLAY DELAY: .............. 50 

| NUMBER OF INTERVALS TIMED: 2... 21.111: 50 

MEP PRAGCE RUN WEEME Tri: .............00- 107. 49 sec 

| MMMEER OF TRACKS: ............0.00005- SO 

| NUMBER CE INTERVALS: ——— tt 10 

BN@ERVAL DISPLAY DELAY: .........sen0. ie 

BimieAGh RUN TIME Tr2: ........ cece eee ili 


TIME PER SCHEDULING INTERVAL "Ti" 
SCHEDULING RATE: 





The tests were run on the Z-100’s 8-Bit microprocessor. The target processor is 
the 1iSBC 86/12A Single Board Computer with a 16-Bit microprocessor, which will 
increase the performance. However, it is doubtfull that this will be enough to over 


come a factor of ten. 
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VI. CONCLUSIONS AND RECOMMENDATIONS 


This thesis has developed a JANUS/ADA model of the Radar Scheduler process. 
The model 1s a first effort in implementing one of the AEGIS AN/SPY-1A Radar 
Control Group modules in JANUS/ADA and as such it is a part of the continuing 
research effort at the Naval Postgraduate School to test the feasibility of replacing the 


AEGIS main frame computer suit with a multi-microprocessor system. Additionally, 


the Radar Scheduler provides an example for studying the performance of time critical - 


programs written in ADA. 
The design of the Radar Scheduler model incorporates 14 mocules. The modules 
were designed to be integrated into the overall model with a minium of changes 


required. [n support of this, Chapter [V, serves as the Radar Scheduler Design 


Document to be used as 2 reference for the future implementation and integratrommen 


the Radar Scheduler Process with the remaining Radar Control Group modules. As 
such, any changes to the Radar Scheduler’s design should be reflected im (hem@earam 
document. 

Logical testing of the individual moduies was increasingly more dificult as thev 
were integrated into the main program. There were several reasons for this. First, the 
number of logical paths to be examined grew very rapidly as the modules were 
integrated. In some cases, the lower modules had tested satisfactorily, isolated in their 
own test harness. Then later, while acting in conjunction with the higher level modules, 
they developed problems which were not accounted for by the test harness. For 
example, the dynamic allocation of local access data structures, and some recursively 
designed procedures, functioned well until they were stressed by the load of the Radar 
Scheduler test harness. Under this stress, stack overflow became a problem. Declaring 
the access types outside the procedures in the package body, and making the recursive 
procedures iterative, solved the problem. 

Determining what the best testing criteria is, and formulating a testing strategy is 
dificult without a more rigorously defined specification. The logical correctness of the 
module can not be determined from statements such as “in a timely manner’. 
However, the Radar Scheduler output indicates that the requested beams are being 


scheduled in a priority order, and that those beains that are not scheduled during the 
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interval are being reprioritized and scheduled in later intervals. The radar resources 
remaining at the end of the interval indicate that the resources are being consumed 
until there is no longer enough to fill the remaining requests for that interval. 

Two conclusion are evident from the preliminary real-time testing. First, the code 
generated with the range and arithmetic checking turned off executes at twice the speed 
of the code normally generated by the compiler. Second, the best run-time was ten 
times slower than the median scheduling interval time required. In view of this, further 
testing shouid be done io isolate the cause. The most time intensive portions df the 
program shouid be analyzed first. Identification shonid be made by measuring the 
execution time for the most likelv modules and weighting the results bv the number of 
times the module is executed bv the Radar Scheduler process. Once the modules have 
eer) identified, the actual cause of the time delay can be asessed. The algorithms and 
@eraeestructures can be examined for improvement. This way. a more accurate 
accounting of the module design. and the feasibilitv of real-time programming 1n ADA 
Bam be made. 

Mie supplementary processes (IRCM. SRCM. DRCM. and ARCM) were 
MevelOped as test harnesses to suppiv the Radar Scheduler with radar event requests. 
Megese processes will be fully implemented in the Janus/Ada programming language as 
Siem Ss ALGiS Project progresses. Ultimately the processes wil be integrated into a 
multi-microprocessor model of the Radar Controller. 

To completely model the Radar Controller, several major tasks remain. First the 
JANUS/ADA language interface to the MCORTEX system must be completed, so 
that the Radar Scheduler model can be run and tested in a true concurrent multi- 
microprocessor environment. The information gained from this will be valuable to the 
future programmers of the remaining processes. Next the Track Processing portion of 
the Radar Control Group should be implemented. This portion is expected to be 
numerically intensive and should provide a good basis for testing the performance of 
the code produced by the JANUS/ADA compiler and the interaction of processes on 
seperate processors. 

When the remainder of the processes have been completed, the Radar Controller 
model can be evaluated as a whole. At that time actual efficiency measurements can be 
made of the Radar Controller model and the effects of the Ada programming language 


in a real-time multiprocessor programming environment can be asessed. 
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APPENDIX A 
COMMON MEMORY INTERFACE SOURCE CODE 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 3 Dec 86 

MODULE TYPE: External data structure 

PURPOSE: Common memory interface to: Radar Scheduler, Search Management, 
and Track Management orocesses 

NAME © Priority svete ist... LABCCe Es 


this data structure is the list of radar events in priority aes 
Facn siement in tne list holds inrormation on the event quciouame 
Poles co. 


pragma arithcheck(ofi); pragma spears ; 
pragma enumtab(oft); pragma rangecheck(o£ft); 
pragma arithcheck(on); pragma debug(on) ; 

pragma enumtabd(on); Sragma rangecheck(on); 


WITH tabl, zabZz:- 


PACKAGe tap0 &5 


lo_annnc: CONSTANT INTEGER:= 4: 
Max 94a CONS TAN Gel BUGCrhe eo: 


IYPE QueType <S (search,special_vequest,track,missile) ; 
USE. Rad cab2. 
ites SeCamOle woah Conn 


CASE kind: QueType IS - 
WHEN search Feces wean => 


Snode: SearchPtr; = SSC Curae Lal 
WHEN track | missile => 
Tnode: TrkPtr; ~~ see TAB2.LIB 
WHEN others => 
qeulu ibe 
END CASE; 


ED Recor Dr. 


TYPE pri_lst_info IS RECORD 

status : BOOLEAN ; 

eventnm :string(40); 

max_nodes : INTEGER; 

que_id :QueType; 

Quemper -beanGue- 

enhnc : BOOLEAN ; 

b_pri : INTEGER; 

foo 3) at : INTEGER; 

2,4 : INTEGER; 

allwd_ltx:INTEGER: 

slet_flg :BOOLEAN; ane 

nxt : INTEGER; == pointer to next priority ance 
END RECORD; 


TYPE PrilstPGmets ACCESS praise into. 
TYPE PriLstArray IS ARRAY(1..max_pri) OF PrilstPtr; 
pri_lst : PriLlstArray; 


END tab0; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 3 Dec 86 

PODULE) Tyre: Bxternal data structure 

PURPOSE: Common memory interface to: Radar Scheduler, Search Management, 
and Track Management processes 

NAME: Priority Event List ... TABO.PKG 


pragma arithcheck(off); pragma See uaNe Ee) 
pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on); pragma rangecheck(on) ; 
PACKAGE BODY tabO IS 
1: INTEGER; 
BEGIN 


feeec IN 1..max_pri LOOP | | 
pri_lst(i):= NEW pri_list_info; 
END LOOP; 


END tab0; 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 30 Sep 86 
-- MODULE TYPE: external table 

-- PURPOSE: Common memory interface 
-- NAME: Search Node...TABI1.LIB 


-- This interface 1s a search beam node. It acts as a template for the 
-- nodes which make up the horizon search, above horizon search an 
== spect ae request queues. 

The Search Management Process fills the queue and the radar Seneeu ia 
-- Process emMpetesmaar. 


pragma arithcheck(off); pragma shee) | 
pragma enumtab(off); pragma rangecheck(of£); 
@ pragma arithcheck(on); praqma debud(on); 
@ pragma enumtabd(on); oragma rangecheck(on); 


PACKAGE tabl IS 


TYPE BeamPositton fo nHeonD 
azim ;: INIEGER: 
elev : INTEGER; 

END RECORD; 


TYPE sSneiwata Ps > shCony 


mode INTEGER; 

bid . 2 Soueaan see 
Deawepesi > ieecanyOcad econ - 
Ins @ouce SLE GER 
Slecidara : INTEGER: 
COCE_OInK agate = TiEaAGes- 
cltuocolnk. ste ieee - 
eof 2ndic : BOOLEAN. 
req_id ; DNPSCeR- 


=IND RECORD; 
TYPE SrehDatPtr IS ACCESS SrchData; 
TYPE SearchNode; 
TYPE SearchPtr IS ACCESS SearchNode; 
TYPE SearchNode Lo vREGORD 
info: SrchDatPtr; 
nxt : SearchPtr; 
END RECORD; 
srch_node: SearchPtr; 


END tabl; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 24 Jun 86 
MODULE TYPE: external table 
PURPOSE: common memory interface 
NAME: Track Node ... TAB2.LIB 


This data structure is a track request beam node. It acts as an overlay 
for the track request queues resident in the Priority List. The Track 
Management Process fills the queues with requests for track beams and 
the Radar Scheduler Process empties them as the track beams are scheduled. 


pragma arithcheck(off); pragma Seen) 7 
pragma enumtab(off); pragma rangecheck(off); 
Beeobagma aricthchneck(on); pragma debugion);— 
@ pragma enumtap(on); pragma rangecneck(on); 
WITH tab7;: 


FACKAGE tab2 [5 


USE tab/7; 
Peee= Tr cinfo 1S RECORD 


node ; -h TEGER: 
2 iyal Sen ene) 
mamoer ty! richite- “= 3ee@ [RB7.Li3B 


END 3ECORD: 


TYPH TracikNode; 
eee Pe ePts «PS ACCESS frackNocde: 
meee traciiNode :S RECORD 
woGO << trkinro: 
xe mari Ptr- 
eND RECORD; 


ad 


marie “, “ mew ie a, 
m.0ode: Erxpty. 


END tab2; 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 24 Jun 86 
-- MODULE TYPE: external table 

-- PURPOSE: common memory interface 
-= NAME: 1L_tolke.... TAzSweID 


-- This table is an interface data structure which communicates Se eee aaa 
-- status to the Radar Scheduling Process. 


pragma arithcheck(off); pragma salto) Seer 
pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on); pragma rangecheck(on) ; 


PAGARGE edocomas 


TYPE See Vitsscacus 25 2eeerme 
reSvmedecime = LLEGah 
loop_con = IT eEGae 
amsn_status : sSO0QOLEAN; 

END RECORD; 


Lette Gees CCAS oF. status: 
LO eee CaLetr: 


“ND Gale, 


7: 











-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 24 Jun 86 
-- MODULE TYPE: external table 

-- PURPOSE: common memory interface 
meeNAMe: A to_R ...TAB4. 


-- This interface data structure communicates RCS commands to the Radar 
-- Scheduler to aid in the formating of the radar dwell buffer. 


pragma arithcheck(off); pragma See) 
pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on); 
@ pragma enumtab(on); oragma rangecheck(on); 


PACKAGE tab4 IS 
meee InhibitReqion IS RECORD 


start_bng :INTEGER; 
stop_bng :INTEGER; 


END RECORD; 

ieee OpDoct Is RECORD 
mtrks : INTEGER: 
mintvis : INTEGER: 


Splvyiorect : INTEGER: 
=ND RECORD; 


SZP=E RCS _command IS RECORD 
pwr_fig : BOOLEAN; 
rad _ pwr _ option: sSOOLEASN; 
Beem nto segions: adrvay(i..5) OF innibitRegion: 
Oho ee (oLeye OO UCeE- 
oe aE CORD: 


END tab4; 


ies 


OWNER: AEGIS Modeling Bpoup 
DATE OF LAST UPDATE: 22 Oct 86 
MODULE TYPE: external table 
PURPOSE: common memory interface 
NAME: A_toO_R ... LABS TERG 


This interface data structure communicates RCS commands to the Radar 
Scheduler to aid in the formating of the radar dwell buffer. 


pragma arithcheck(off); pragma SSC 
pragma enumtab(off); pragma rangecheck(off) ; 
pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on); pragma rangecheck(on) ; 


PACKAGE BODY tab4 IS 
BEGIN 


A_to_R:= NEW RCS_command; 


END tab4; 


74 


OWNER: AEGIS Modeling SEOup 
DATE OF LAST UPDATE: 11 Oct 86 
MODULE TYPE: External Table 
PURPOSE: Common Memory Interface 
NAME: C_to_R ... TAB5.LIB 


This table is an interface between the C&D User Services Process 
and the Radar Scheduling Process. 


pragma eer aee 7 pragma debug(off); 
pragma enumtab(off); Dragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on); 

praqma enumtab(on) ; pragma rangecheck(on); 


MeexnaAGh tab5 TS 


i 


-- OWNER: AEGIS Modeling SEOup 
-- DATE OF LAST UPDATE: 11 Oct 86 
-- MODULE TYPE: External Table 

-- PURPOSE: Common Memory Interface 
-- NAME: B_to_R ... TAB6.LIB 


-- This interface data structure communicates information concerning 


-- array face limits and ships motion matrix to the Radar Scheduler 
-- Process. The information is developed in the Beam Stabilization 
-- Process. 


pragma arithcheck(off); pragma debucieee)) 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); sragqma depuq(on) ; 
pragma 2numtabd(on) ; Oragma rangecheck(on); 


ipod 


PACKAGES tabGmes 


TYPE L_R_Limits [5 RECORD 
tt: INTEGER; 
mit: INTEGER; 


-_ 


[S SRRAY( 1 oe8) OF CR Obim ese 
LL PE MOE ONMAtC aS 2ASCORD 

ecg on Slonmee CU IGOe/S)s. 6 

¥ Shle stot. Ame Gore 

COOL : INTEGER: 

Dineen : INTEGER; 

yaw INTEGER: 
END RECORD: 


= =~ ~- - 
Pwo A ersace- 

TPoae) sy > ate = aah well oud x : ~ = P 
PoEaoetOn £5 aCli Seg tae ce he acer 


Pied oe ee LeM sae ecw eee 


a | ~* he ee ae mo tome 


+s we de 


Pace antenna_iimits: taceLimi cs, 
.ships_motion matrix: MotionMatrix; 
azim_limit_slope |: INTEGER; 

ENDS AE CORD, 


Beeoun: BEOR > 
END tab6; 
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-- OWNER: AEGIS Modeling SEeUp 
-- DATE OF LAST UPDATE: 22 Oct 86 
-- MODULE TYPE: external table 

-- PURPOSE: common memory interface 
-- NAME: Track File ...TAB7.LIB 


=- This external table is the radar control system track file. The data 
Semceructure 1s a linked list based on a pointer which is passed between 
== processes which require access to the track file for data on tracks. 
pragma arithcheck(off); pragma Sie ete Ghia 
pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on); 
@ pragma enumtab(on); pragma rangecheck(on); 
Veer longops; 
feeeAGE tabd7 IS 
USE Longops; 


TYPE Position IS RECORD 


x INTEGER; 

7 ONE ees: 

e ? Wwe eex: , 

eimescnge = Lond Junteger: == Scueamenceger s50m LOnNcoOpS package. 
x%_ dot 7 MUGS Sak; 

pacot : INTEGER; 

Zmco t mee Gon; 

rge_dot Pee GER; 


SND RECORD: 


TYPE TimAlwadDwl TS RECORD 
msw : INTEGER; 
isw : :NTEGER;: 

ao 2ECORD- 


TYPE UpdtPosit IS RECORD 
msw_rate_filter : INTEGER; 
lsw_rate_filter : INTEGER; 

END RECORD; 


iene PredTimLst IS RECORD 
msw_azim_elev : INTEGER; 
lsw_azim_elev : INTEGER; 
END RECORD; 


TYPE DetectRnge IS RECORD 
msw : INTEGER; 
lsw : INTEGER; 

END RECORD; 


TYPE TimDetect IS RECORD 
msw : INTEGER; 
lsw : INTEGER; 

END RECORD; 


TYPE TrkData IS RECORD 


mode INTEGER; 

rc = Sieesbavel se 

Priority : INTEGER; 
osit : Position; 


rk_xsitn_flag : BOOLEAN; 
ctl _ grp_trk_num : INTEGER; 


Cesk : INTEGER; 
xgte_bin_num : INTEGER; 
Pee com : INTEGER; 

ow_elev_trk_flg: BOOLEAN; 


log_ampld_est =: INTEGER; 


ua 


xmit Egtotig’ : BOOLEAN; 
Sy ie : BOOLEAN; 
END RECOR 
TYPE TrkDatPtr 0S ACCESS irkbata; 


TYPE TgtData IS RECORD 


tim_alwd_dwl : TimAlwdDwl; 
mfar_ trk num : INTEGER; 
wes _1dx : INTEGER; 


updt_tim_posit : UpdtPosit; 
pred_tim_lst : PredTimLst; 
dwl_btwn_tim : INTEGER; 
nxt_trk_xgte_bin: INTEGER; 
prev_trk_xgte_bin: INTEGER; 
artst_noise_freq: INTEGER; 
Cast eioisc rea: INTEGER; 
valid_data_tilg : BOOLEAN; 
lost_trk count : INTEGER; 
nxt_tim_tbl_entry: INTEGER; 


-~~he=1,me=2,le=3,ale=4,mti=5,passv=6,missile=7,cvr_plse=8 
trk _mode : INTEGER; 


gq : 300LEAN; 


reve status ste 
-G 2 SOOLEAN ; 
| * 


A 
typi SEE 5 
ie 


yo2_Dass 1 SOO sail; 
drp_ Eyias 21g 3 SUOLAAN: 
“-alr=l1,surtace=2,clutter=3 
erk_class me LTEGER: 
--nostile=1, frzrendiv=2,unknown=3 
trk_id : INTEGER: 
ples aiiey SOOLEAN; 


ave _ampld_ count: INTEGER; 
e_accel_flg : BOOLEAN; 


ect_ rnge : DetectRn 7 
ee detec TimDetec 
caus_lost “data_pt: INTEGER; --unknown pointer type? 
END RECORD; 


TYPE TrkE wale) 
TYPE PtrTrkFile IS ACCESS TrkFile; 
TYPE TrkFile IS RECORD 
beam_data : TrkDatPtr; 
tgt_data: i tData; 
nxt_trk : rTrkFile; 
END RECORD; 


okey Pato eens 7 
rk_file: PtrTrkFile; 


END tab7; 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 17 Nov 86 
BeeoDUDE TYPE: external table 

-- PURPOSE: common memory interface 
SemaMe: Irack File ...TAB7.PKG 


-- This external table is the radar control system track file. The data 
aeesenuceure 15 a linked list based om a pointer which is passed between 
-- processes which require access to the track file for data on tracks. 


pragma arithcheck(off); pragma ge eenees); 
pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); oragma debug(on) ; 
@ oragma enumtabd(on) ; oragma rangecheck(on); 


e 
Peenace SODY tab/ 5 
3EGiIN 


peeex:— IEW Trifile; | 
pterk.oseam_data:= NEW [frkData; 
a3 
te de 


) t 
' 


ti 


trk Sile:= NEW TrkFile; 
SagecameOeam cata:= NEW TrkData; 
Beec:— Cra_tate; . | 
Dtri.ceam_aata:= ctrk_fiile.beam_data; 


it) 


ND tap7: 


w@ 


-- OWNER: AEGIS Modeling Googe 
-- DATE OF LAST UPDATE: 11 Oct 86 
-- MODULE TYPE: External Table 

-- PURPOSE: Common Memory Interface 
-- NAME: F_to_R ... TAB8.LIB 


-- This interface data structure contains the frequency and waveeeugm 
-- information required by the Radar Scheduler Process to compu em. 
-- formatting of selected radar dwells. 


pragma arithcheck(off); pragma cleclachicetayr 
pragma enumtab(off); Dragma rangecheck(off) ; 
@ pragma arithcheck(on); pragma debuq(on); 
@ Draqma enumtap(on); oragma rangecheck(on) ; 


*ACKAGE = 2abe iS 
max_dwells: CONSTANT ENTEGER:= 10; -- not breviously defined, LOW? 


TYPE mtiRec IS RECORD 
jel @at ; LNT CRae 
dwl Length: INTEGER; 
END RECORD; 


Ti Peo tenec 2S 22 CORP 
ee ink cred: INTEGsRe 
iWieered = TEGZR. 

LNDeeE CORD: 


LEPE WavecormRkes Sow acor” 
Sreqeganl = LMReCae- 
sGespoand =: ifTe2CEe. 
shasel_code: ZNTEGER:; 
ohase2Z <ode: ‘NTEGER; 
mes :MmCI Ree. 
aisle : msleRec; 
imbibe treqg chni: itaeas- 

END RECORD; 


TYes=bero k IS ACCESS WaverormRec; 
TYPE InfoWaveForm IS ARRAY(1..max_dwells) OF F_to_Rk; 
waveform: InfoWaveForm; 


END tab8; 
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-- OWNER: AEGIS Modeling oueup 
———Bewe OF EAST UPDATE: ll Oct 86 
-- MODULE TYPE: External Table 

-- PURPOSE: Common Memory Interface 
ctl: F to R ... TABS.PKG 


Bemis interface data structure contains the frequency and waveform 
Pemimagninatlon required by the Radar Scheduler Process to complete 
-- formatting of selected radar dwells. 


ragma arithcheck(off); pragma debug(off); 
Be acma aruntab(ots) racial pepe tern (fe): 
@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on) ; pragma rancgecheck(on); 


PACKAGE 30DY <zab8 [S 
me a NT GER > 
BEGIN 
FOR i IN 1..max_dwells LOOP 
waveform(i):= NEW WaveFormRec; 


BID LOOP: 
SND <abée; 
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OWNER: AEGIS Modeling So eup 
DATE OF LAST UPDATE: 11 Oct 86 
MODULE TYPE: External Table 
PURPOSE: Common Memory Interface 
NAME: L_to_R ... Aber eus 


This interface data structure contains the flag which indicates 
reset time for the track counter. This flag is used by the Radar 
Scheduler Process to format track dwells. 


pragma arithcheck(off); pragma See GE Sap 
pragma enumtab(off); pragma rangecheck(off) ; 
pragma arithcheck(on); pragma debug(on); 

pragma enumtab(on) ; oragma rangecheck(on) ; 


PACKAGE  <ab9 IS 


Crk tim ctroreset: S00LEAN- 


END tab9; 
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-- OWNER: AEGIS Modeling CEeEP 
== DATE OF LAST UPDATE: 11 Oct 86 

-- MODULE TYPE: External Table 

Samueaedon: Common Memory Interface 

-- NAME: Missile Downlink Message ..: TAB10.LIB 


-- This table holds the communication information required for 
-- downlink data from own ship's SM-2 missiles. 


ragma arithcheck(off); pragma debug(off); 
eeama eee Seat Bee Ech, OEE), 


@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on) ; pragma rangecheck(on) ; 
eeereaGe tabiO £5 


num_mssi_msgs: CONSTANT INTEGER:= 10; -- not previcusly defined, 10? 


TYPE DwnlinkRec IS RECORD 
eigemone 2 iN TAGE ; 
DeeweevO siINITEGER, 
prt_three: INTEGER; 


Sieesour = NTaGak; 
peer ve :iNTECEHE; 
Serests  siNlaGes; 


prt_seven: INTEGER; 
Bee Lone -2Ntecen, 
zND RECORD; 


| 


TYPE PtrMssiDwnink [£5 ACCESS DwnlinkRec; 
Beem DWwnlnkArray iS SRRAY(1..nummssi_msqs) OF PtrMssiDwnink; 
fosnsawninik: OwnlnkArray; 


SND tabio: 
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-- OWNER: AEGIS Modeling S EoD 
-- DATE OF LAST URDSTE Pimect oo 

-- MODULE TYPE: External Table 

-- PURPOSE: Common pads ikicemitace 

-- NAME: Missile Downlink Message ... TAB10.PKG 


-- This table holds the communication information required for 
-- downlink data from own ship's SM-2 missiles. 


pragma pee) 5 pragma eNO aa 

pragma enumtab(off); pragma rangecheck(off) ; 

pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on); pragma rangecheck(on) ; 
ACKAGE BODY tablo IS 


he NBME 5) = 


‘dy iia 


BEGIN 
TOR 1 IN i.. num_mssi_msgs LOOP 
mssl_dwnlnk(1):= NEW owniinkRec; 
CND LOOP; 


BND ba; 
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| 


OWNER: AEGIS Modeling Gy oup 
DATE OF LAST UPDATE: 11 Oct 86 
MODULE TYPE: External Table 
PURPOSE: Common Memory Interface 
iWewee RO tole ... TAab11. LIB 


This interface data structure contains the replenishment flags 

which inform the Search Management Process which search queues 
Loguiatcerrelincgemune Radar scheduler Process sets the flags as 

Becessary when it has used a preset number of search request 
eams. 


pragma arithcheck(off); pragma BoeUCKOEs) | 
pragma enumtab(off); pragma rangecheck(off); 
oragma arithcheck(on); pragma debug(on); 

Oraqma enumtapd(on) ; Oragma rangecheck(on); 


PACKAGE tabll I5 


MyeEeReOs Is RECORD 
hs_que_repln: BOOLEAN; 
ahs_que_repln: BOOLEAN; 

END RECORD; 


Moe acOsSrcer £5 ACSESS RXtos: 


pyeco 3: Rtosrtyr; 


END tapbli: 
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OWNER: AEGIS Modeling Grou 

DATE OF LAST UPDATE: 11 Oct 86 
MODULE TYPE: External Table 
PURPOSE: Common Memory Interface 
NAME: R_to_S ... TAB11.PKG 


This interface data structure contains the replenishment flags 

which inform the Search Management Process which search queues 
require filling. The Radar Scheduler Process sets the tlags as 

etsbeaed when it has used a preset number of search request 
eams. 


pragma arithcheck(off); pragma Seta Meee 
pragma enumtab(oftf); pragma rangecheck(of£) ; 
pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on); pragma rangecheck(on) ; 


PACKAGE SODY tepll is 


BEGIN 


Ritess:= NEW Rtos: 


2ND ceo: 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 30 Sep 86 
-- MODULE TYPE: external table 

-- PURPOSE: common memory interface 
mene: R_to_O ... TAB32Z.LIB 


-- This table is the interface between the Radar Scheduler Process and the 
== Radar Output Process. 


pragma arithcheck(off); pragma See See 
pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on); pragma rangecheck(on) ; 


PACKAGE tab32 IS 
TYPE DwiData tS RECORD 


mode PoNTeces. 
ae eee e kh 
sub_mode Wakes) On LNITEGER- 
dwl_idx Doce: 
beam_purpose : INTEGER; 
eGnibescars Lax : INTEGER; 
poe -euino lnk gates {pale RGER: 


euu@eeer Wndwnk gates: INTEGER; 
2ND RECORD: 


“lerd, ME gale @ ee 
Peewee er ktoOo £5 ACCESS Rtoo- 
meeme OO 8S RECORD 
dwlaata : DwlData; 
Link » PtrStoo: 
END KECORD; 


Meo oF: -trRtco: 


AJ 


& 4 


Meee 2OPtrArrayv™iS ARRAY(1 
ptr_r_to_o: ROPtrArray; 


END tab32; 


oY ee tOO- 
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OWNER: AEGIS Modeling Sueup 
DATE OF LAST UPDATE: 23 Oct 86 
MODULE TYPE: external table 
PURPOSE: common memory interface 
NAME: R_to_O ... TAB32.PKG 


This table is the interface between the Radar Scheduler Process and the | 
Radar Output Process. 


pragma arithcheck(off); pragma see SF 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on); pragma rangecheck(on); 


PACKAGE BODY FKaps2 I5 


SEGIN 


ptr_r_to_9(1):= NEW Rtod; 
Dur _Y COLON ) =a nto; 
ro Spal a ayo) 2S: t). Link:= null: 
eee ra eae noi 


END tab32Z: 





SS 
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OWNER: AEGIS Modeling Group 

Dare OF DASL UPDATE: 30 Sep 8&6 

MODULE TYPE: data buffer 

PURPOSE: internal data structure 

NAME: Output Control Channel Buffer ...TAB40.LIB 


This interface data structure is a buffer between the Radar Control 
ppogr am and the Radar Channel program. It communicates with the 

adar Scheduler and Radar Output processes. The Radar Channel program 
uses the data to process commands for the SPY-1 radar. 


pragma arithcheck(off); pragma debug(off); 


pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on); 
oragma 2numtab(on); oragma rangecheck(on) ; 


PACKAGE tab40 IS 


TYPE CntrlWord IS RECORD 
rdr_xmsn_on : BOOLEAN; 
adj detect_enable : BOOLEAN; 


sdib_canx_on : BOOLEAN; 
chni_a_video : BOOLEAN; 
chnl_b_ video : BOOLEAN; 
Freq _group_sict : SOOLEAN ; 
migmeeca nee Mao te) = SODLEAN; 
See ouocintaisapie : SOOLEAN; 
BeeoUDchnigeaisapte ; SOOLZAN; 
eS ¥subchni_disapie : SOOLEAN; 


E4 subchnl disable : BOOLEAN: 
supchnnl weignht_enable: BOOLEAN; 
So OG ODS ; ZOOLEAN; 
eae oek .=2rr : 3O0OLEAN; 


END RECORD: 


TYSE Freqcroupselect iS RECORD 
ri_mode_a : INTEGER; 
_submode : INTEGER; 

c_submode : INTEGER; 

END RECORD; 


Wy See be fone CORD 
entril word ; CntrlWord; 
freq_group_select : FreqGroupSelect; 
data_block_code ; INTEGER; 

END RECORD; 


TYPE ObType IS RECORD 
detectl_thrsld : INTEGER; 
detect2_thrsld : INTEGER; 
detect3_thrsld : INTEGER; 
sdlb_thrsld : INTEGER; 

END RECORD; 


TYPE OcType IS RECORD 


malo thrsidi : INTEGER; 

cvr_pulse_thrsldl : INTEGER; 

satl_thrsld : INTEGER; 

sat2_thrsld : INTEGER; 
END RECORD; 


TYPE OdType IS RECORD 
ratio_thrsld : INTEGER; 
limit_thrsld : INTEGER; 
cltr_thrsld : INTEGER; 

END RECORD; 


TYPE OeType IS RECORD 
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COMpitr Cela nate 
truncl_thrs 


INTEGER; 
Id : INTEGER; 


trunc2_thrsld : INTEGER; 


END RECORD; 


oo ee apts iS RECORD 


code INTEGER; 

Cen _code INTEGER; 

phse3_code INTEGER: 

phse4_code INTEGER; 
END] RECORD: 


ee ee? s IS RECORD 
ale, BUNS CID 54 
fEDKZ =. 2N PEGE. 
ScbKS a tsGex: 
fdbk4 : iNTEGeER; 
ND RECORD: 


TYPE (Ohtyoe [Sek necoRE 
Pratimt1 = PEGE, 
Da Zonts 2 toGen 
END RECORD; 


ey 


a ee ee 300LZAN: 
awlilsstart sine “giGeecnae 
GWil2 scarc. Eine - eae cnn, 
SND RECORD 
PVP EO ype eleee Seon 
Chua Le S00LERaE 
cleo a SURGE Use alge INTEGERS 
El Mocleige a waclomiarc etc! LNTEGERe 
2D SECeRD- 
yes cet it IS) ey eho s dG) 
Cher 


docrel BUAb TSR Selgeje 
fixed_atten_cntrl 
SteuecmrEr! 

END RECORD ; 


TYE ie eS oe RECORD 


: BOOLEAN; 


INTEGER; 
INTEGER; 
INTEGER; 


ener : BOOLEAN; 
dee cer ints start : INTEGER; 
te _freq INTEGER; 
Bec INTEGER; 
END RECORD; 
TBE oe Asie IS RECORD 
cntr : BOOLEAN; 
decta2| eRe _stop : INTEGER; 
face INTEGER; 
fore_beam_alarm_ Bands INTEGER; 
cos_alphal_mn_array INTEGER; 


END RECORD; 


TYPE OnType IS RECORD 
eb gejyeIe joke 
Cltr. taunbinkestant 
aft_beam_alert_inhib: 


cos_alpha2_sdlb_bink_ary: INTEGER; 


END RECORD; 


TYPE OoType IS RECORD 
Creer aon 
cltr_1_unblnk_start 
cos_betal_mn_array 


: BOOLEAN; 


EN DE) )S6 
INTEGER; 


7 BOOLEAL |: 


INTEGER; 
INTEGER; 
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END RECORD; 


gg ot ga ea RECORD 
GEnNtrl bit 
Greweceunorc strt 


: BOOLEAN; 


TNT SeaR ; 


cos_beta2_sdlb_blnk_ary: INTEGER; 


END RECORD; 


TYPE OqType IS RECORD 
Giie rile Dat 
Sltnee Unolic stop 
elev_sector 
gplveerr 1 
trk num 

END xECORD: 


TYPE OrType IS RECORD 


pe egace strc + INT 
epiy _elLey > INT 


END RECORD; 
TYPE OsType IS RECORD 


BOOLEAN; 


: INTEGER; 


PNP GER : 
ENT EGER ; 
SIEGE: 


i 


mv’ >, 


=GER; 


video @xtne ee NeeGan. 
eee eo Ds lek. > ENT EGeR; 
feu. 2azZ im CNTEGER:; 
END RECORD: 
Meme clype 2s RECORD 
otmsb LAULEGER; 
otisb : INTEGER; 


eDe RECORD ; 


TYPE OtArray ©S ERRAY(1.. 


Meee OCCDIyre 
Meee 2trOccbd IS ACCES 
meee OCcliype .5 RECO 
oa wea De. 
ob ObType; 
oc Oeil yoe- 
od OdType; 


O Oglype ; 
Oo Silype; 
O1 Onlype; 
fe) Oj3Type; 
fe) Okiy pe 
ol OlType; 
om OmT ype; 


on JOM ype: 
fefo) 2 eOOLype; 
Op : OpType; 
oq: OqType; 
Om. = Orlype- 
Os sos l ype; 
ot weOCAr Tay. 
Hyak = PtrOccp- 
BMD RECORD; 


@ecb: PtrOccb: 


TYPE OCCBPtrArray IS ARRAY(1..2) OF PtrOccb; 


@eco ptr: OCCBPtrArray; 


END tab40; 
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-- OWNER: AEGIS Modeling Group 
-- DATE OF LAST UPDATE: 238@Gruco 

-- MODULE TYPE: data buffer 

-- PURPOSE: internal data structure 

-- NAME: Output Control Channel Buffer ...TAB40.PKG 


-- This interface data structure is a buffer between the Radar Control 
== procuas and the Radar Channel program. It communicates with the 

adar Scheduler and Radar Output processes. The Radar Channel program 
-- uses the data to process commands for the SPyY-! radams 


pragma arithcheck(off); pragma Sete aE 
pragma anumtab(ort); pragma rangecheck( of) ; 
@ pragma arithcheckton); pragma debug(on) ; 
@ Sragma eanumtab(on) ; oragma cangechecic(on); 


PACKAGE. 2ODY “capciee: 


BEGIN 
occb_otr(1):= NEW OccbTyoe; 
OCebepem-— NEW eceor pe; 
OCGSeteel). link sp sul); 
9Cern Mere). links= full: 
END ™rab40- 
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=— a rr rr ee 


APPENDIX B 
GLOBAL SOURCE CODE 


OWNER: AEGIS Modeling Grou 
DATE OF LAST UPDATE: 22 Oc 
MODULE TYPE: Global data | 
PURPOSE: System's Data Structure declarations 
NAME: GLOBAL DECLARATIONS...GLOBAL.LIB 


86 


pragma arithcheck(ofs); pragma debugq(off); | 
pragma 2numtab(ors): aragma rangecheck(of£); 
pragma arithcheck(on); pragma deoug(on); 

pragma anumtab (on); pragma rangecheck(on); 


PACKAGE global IS 
geoeo CONSTANTs 


CONSTANT INTEGER 
CONSTANT sNTaGeR := 


CONSTANT iNTEGE 


Fi CTT 
OST ANT 


INTEGaR : Aled 


(oi 


UMD _ events: 
ie S12 

inrinity: 
numb_procs: | 


==-orocess identiciers 


CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


CONSTANT 


; CONSTANT 
: CONSTANT 
: CONSTANT 
; CONSTANT 
: CONSTANT 
: CONSTANT 
: CONSTANT 
: CONSTANT 
: CONSTANT 
; CONSTANT 
: CONSTANT 
; CONSTANT 


CONSTANT 


Mie Grr 
eacae 
NTEG 


ee 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 


Se pale 


Tiennnnnnnnn na a 


main_ ae CONSTANT INTEGER 
idle id: CONSTANT INTEGER 


--event count identifiers, 


main_event_id: CONSTANT INTEGER 
display_evc_id: CONSTANT INTEGER 
time _count_id: CONSTANT INTEGER 
idle_ event _ id: CONSTANT INTEGER 


ret a 
ec id: 
eb i 


CONSTANT 
CONSTANT 
CONSTANT 


: CONSTANT 
= CONSTANT 
: CONSTANT 
: CONSTANT 
: CONSTANT 
: CONSTANT 
: CONSTANT 
: CONSTANT 
d: CONSTANT 


INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 
INTEGER 


MPH iO O~T OU. lo tote 


reserved event count identifiers: 


ae, 


i 
G: 
Z 


2; 
0; 


OZ oe 


{4} 


ND : 


eo_id: CONSTANT INTEGER 


ei_id: CONSTANT INTEGER := 17; 
ep_id: CONSTANT INTEGER := 18; 
et_id: CONSTANT INTEGER := 19; 
es_id: CONSTANT INTEGER := 21; 
er_id: CONSTANT INTEGER := 22; 


--common service routines 


FUNCTION clock RETURN INTEGER; 
FUNCTION rand RETURN INTEGER; 
PROCEDURE ipl; 

PROCEDURE await(proc_id,event_id,event_value: IN INTEGER) ; 
PROCEDURE advance(proc_id,event_id: IN INTEGER) ; 
FUNCTION ticket RETURN INTEGER; 

PROCEDURE disabie: 

PROCEDURE enaple; 


--System's Data Objects 


TYEE Eve ee ay IS ARRAY (0..numb_events) OF INTEGER; 
Vv 


event_val_cnt :EveValArray; 

TL Pee DeeGess. fan ceckD 
status >: INTEGER; 
context : INTEGER; 
counr : UNTEGER; 
avent : tNTeGerR; 

=ND RECORD: 


TYPE Profrabarray IS ARRAY (O0..numb_pbrocs) OF srocess; 


DECS 26s 620! AD aways 


i 


lopal; 


a 


-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 26 Nov 86 

-- MODULE TYPE: global package body | 

== PURPOSE: to define common service routines 
-- NAME: global ... GLOBAL.PKG 


pragma eens)? pragma eRwON OSs 
pragma enumtab(off); pragma rangecheck(off) ; 
@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on); pragma rangecheck(on) ; 


WITH Longops,tab0,tabl,tab2,tab7; 
PAGkAGE BODY glopal IS 
Bee sengous,tab0, capl,itabZ, tab7; 
SeeOWNER: AbGIS Modeling Group 
Zeeets OF LASL UPDATE: | Dec 35 | 
[—oOULS 2fP2: common service VOme Lie 
-- PURPOSE: Sneha ceed random numper 
e- NAME: RAND ...csr5 
-- This peeudo=random MumMDey eve waror Ses genes’ Londmience eegors cum 
Meememeeeet ace 4 list BE crancomihumbers with a period approximately 
Seecodetero '*!' . The Sauaticon ts or the form: 
-- R(ntl) =~ nod {ia * Atlee 3) 7) 
x: INTEGER:= -1; 


Pores .@Ne 2 anade22TURN ENTEGER ts 


it 


~) 


Dime Gee 
ol EGak 
De Gn R 
eed: ULEGER 
Menem cecer - 


4 8 
‘iit 


ae (ad G2 058 
ii ke ~7 0a 
Cjn~s 

$~ {6 
(OUD 
 -e 
~~) 
1?) 


a Oa Oy ran a 
ee ae es ee 


BEGIN 
IF x=-1 THEN 
X:= seed; 
END IF; 


-- compute the random number 
y:= Ladd(Lmul(Lint(a),Lint(x)),Lint(b)); 
Ke=L_to_int(bLmod(y,Uint(t))); 
RETURN x; 
END rand; 
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OWNER: AEGIS Modeling Group 
DATE OF LAST UPDATE: 30 Nov 86 


MODULE TYPE: 
PURPOSE: 
NAME : 


external initialization routine 
initialize the priority; 
Initialize the Radar Even 


~csr6 


event list for the Radar Scheduler Model 
PrIOFl Ge boise- 


This routine initializes the Priority Event List which is used by the 


Radar Scheduler, 


request and schedule radar dwells. 


PROCEDURE ipl IS 


i: INTEGER; 


BEGIN 
[OL =i eee nak ore OOF 

syqah eleteeale Searle e6oalce- 

Chan BCS eee =e 

rl 1c. 1) . cme een 

priest (ae eae 

ori Tist(i). slct_flg:= faise; 

BRU se Wi ates > ane le 

TF <(1i<=8) OR ((1>=10) AND (i<=12))) THEN 
Irie st(1).allvwa@l tx: eeu 

SLSiF ((i>=i4) BND (2<=21)) THEN 
ori_ist(i).aiilwd_itz:= 500; 

SLSIF .1=9) THEN 
DEMS Ut eect Webs: = 2 oy 

SLO Le seiee eee 
Ori §st(2) -aliwd Jtx:="5¢ 

=LSE | 
DPrLuteeta, «alive 5: = sooo ae 

SID ae 

Er {(i<lo-enhne er (i722) THEN 


ri_lst(i).enhnc:= false; 


pri_lst(i).enhne:= 


END IF; 


IF ((1<= me OR ((1>=10 


Priolst 
PYyleise 
Diteice 
pri— ee 
Se 
ELSIF ‘(iss 
pri_lst 
alenuaiicad 
oye eke 
peielist 
Digits © 
Praeetse 
Rislst 
ELSIF ((i=9 
Rigteesic 
pojeal a lise 
Pile sit 
Plawes c 
jeyval leks 


fetes lst 


Diteiset 
PIweLsit 
pe @al bie 
Diteeks: 
prieesc 


true; 


.max_nodes:= 
.que_id:= special_ 
.que_ptr.kind:= 
eae: Snode:= 


ee el oo ad oe 


.max_nodes: 
.que_id:= aes 
.que_ptr.kind:= t 
.que_ptr.Tnode:= 
Sale O19 
al tls joiwies 
.que_ptr.Tnode.nx 
“OR (1=22)) THEN 
.max_nodes:= 10; 
.que_id:= search; 
~que_ptr.kind:= s 
.que_ptr.Snode:= 
.que_ptr.Snode.in 
-que_ptr. Snode .nx 


a ed ad od od 


ae ed 


-max_nodes:= 2; 
.que_id:= missile; 
.que_ptr.kind:= m 
.que_ptr.Tnode:= 
.que_ptr.Tnode.nx 


HPP: P- 
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requesi:; 
oa request; 
EW SOF ic silorcl3, 
C-— 


rack; 
NEW TrackNode; 


e:= nol 


earch; 

NEW SearchNode; 
fo:= NEW SrchData; 
t:= null; 


issile; 
NEW TrackNode; 
t:= null; 


Search Management and Track Management processes to 


AND eae OR (i>=23)) THEN 


tr.Snode.nx nu 
“OR Gis =6) AUD (ics 8)) a ((4>=14) AND (1<=21))) THEN | 


Tnode.info.p_trk:= NEW TrkFile; 
Tnode.info.p_trk.beam_data:= 


NEW TrkData; 


END LE? 
END LOOP; 


--reset "nxt!" on last element 


pri_lst(max_pri).nxt:= 


Ox 


-- assign event names to each 

Piimelst 1) eventnm:—" A=EVENT 

pri_lst(2).eventnm:= "“B-EVENT 

Bigs veventnm:= "'C-EVENT 

pri_lst(4).eventnm:= "D-EVENT 

Batolst (Ss) .evencnm:— "E=EVENT 

Piamlst(o)-eventnm:= 'F-EVENT 

pri_lsct(7).eventnm:= "G-EVENT 

pritist(@\.eventnm:= "H-EVENT 

Perest).eventnm:= "T=SVENT 

pri_lst 10) eventnm:s W S-EVENT 
pri_lst(il).eventnm:= "K-EVENT 
borelst(1Z).eventam:= "L-aveENntT 
Pree estilo) evenenm:= “MNeBVENT 
Bete lst(i¢)ceventnm:= "N-EVENT 
Ori 8st(i5).eventnm:= "9-=EVENT 
Dri_ist(16).eventnm:= "P-SVENT 
ori_ist(l7) eventnm:= "O-eVENT 
Pee st. 13).eventnm:= “R-=VENT 
orl_ist(i9).eventnm:= "S-iVENT 
Ori_lst(2Z0).eventnm:= "T-aVENT 
ori_ilsc(21).aventnm:= "Je ZVENT 
Bri_ist(Z2).eventnm:= "V-EVENT 
ori_ist(22).eventnm:= 'W-iVENT 
Bri Jlst(2¢4).eventnm:= "K-=VENT 
ori_ist(25).eventnm:= "Y-sVENT 
Nri_1sti26).eventnm:= "Z-=VENT 
Le: 


ae 


HipewiOrItV iilcgt to pont to 0 


Det Otrde 
= ECM BURNTRROUGH. - 


TARGET DEFINITION" ; 

SPECIALS Test’: 

BIIGCACED 1@stI Le TARGET": 
OiiNest=ZeMisSsrEE GUIDANCE". 
PRESoNCaGED AOS) LLE TARGET", 
MECH ase 
mLGr ert MERACK CONF ERMATION” ; 
=- HORIZON 


TRACK TRANSITION" ; 


Soe Rea | 

SPRECIsbhy 2 en EUR TRSReUGA: 
Srecounbe amor l DEPLNITION” ; 
SPECIAL MANUAL SCAN"; 
SEPClLALerarGh! ACQUISITION" ; 
CONFIRMED OsaELE TRACK": 
PesUuMED yee sliLh TRACK"; 
UNEVALUATES! TRACK” ; 


CONTZOLES eos. teNDLY TRACK" 
TRACK CONFIRMATION" ; 

TRACK TRANSAESON'; 

BSSsUMED JaEeNDLY TRACK"; 
CONFIRMED FREENDLY TRACK" ; 
ABOVE HORIZON SEARCH"; 
SroCte ree fe veer Z4ON SEaRCcn” 


ScMULA TCs aii - 
PAGNOST Tee ove oa; 
DUM, SNE ; 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 24 Jun 86 

MODULE TYPE: common service routine 

PURPOSE: simulates a real time millisecond clock 
NAME: clock ...csr7 


This common service routine simulates a real time millisecond noes 


when the routine is invoked the variable "time! is incremented bY 
one. The new value of time is then RETURNed to the invoking PROCEDURE. 


time: INTEGER; 
FUNCTION clock RETURN INTEGER IS 


BEGIN 
ztime:=time + 1; 
SETURN time: 
END clock; 
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-~ The following functions and procedures are only stubs for testing 


PROCEDURE await(proc_id,event_id,event_val:IN INTEGER) IS 
BEGIN 

Brent ly 
END awalt; 


PROCEDURE advance(proc_id,event_id:IN INTEGER) IS 
BEGIN 

null; 
END advance; 


FUNCTION ticket RETURN INTEGER IS 
REGIN 

RETURN O; 
2ND ticixet; 


PROCEDURE cisable [S 
BEGIN © 

cull: 
END disable; 
PROCEDURE e@nabie [5 
BEGIN 

null; 
END enaple: 


Piapelalization 
3EGIN 


END clopal; 


HY) 


APPENDIX C 
RADAR SCHEDULER SOURCE CODE 


-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 29 suc scs 

-= MODULE Tere es vOcess venom) . 
~- PURPOSE: Model the Radar Seneauller Funeeron 
-- NAME? Radar Scneduler Rees 


-- The Radar Scheduler selects requested beams from queues generated 

~~ Dy he sedben Wonacementaancs (cde Management LUNnCCLONS =e 

-- selected beams are then processed and formatted into dwells. The 

-- dwells are transmitted to the Radar Output function and are jae 
+= Bice Epemenaane! Put Ue Surfer. seams are selected for dweil 

== DrOCess Ing ssased On) ters to et emse cence 


pragma arithcheck(or: ); pragma debuq(o£z) 


| pragma SAUMESO( orc oragma sangecaec(o£é) ; 
@ pragma arithcneck(on); oragma Seapee o2 
¢@ pragma enumtab(on); pragma rangecneci(on):; 


= 


PACKAGE. = eal aio 


PROCEDURE radar _scheduler: 





i3 
po 
Oo 
rs 
ry 
QO 
=} 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 2 Dec 86 

MODULE TYPE: Process vers 6.0 

PURPOSE: Model the Radar Scheduler Function 
NAME: Radar Scheduler ... RRCM.PKG 


The Radar Scheduler selects requested beams from queues generated 
by the Search Management and Track Management functions. The 
selected beams are then processed and formatted into dwells. The 
dwells are transmitted to the Radar Output function and are Bgcned 
into the Channel Output Buffer. Beams are selected for dwel 
processing based on a priority scheme. 


pragma arithcheck(off); pragma debug(off); 


pragma 2numtab(oftf); pragma rangecheck(of®) ; 
Sragma arithcheck(on); pragma debug(on) ; 
pragma enumtab(on) ; pragma rangecheck(on); 


WITH Io,Util,global,tab0,tabl,tab2,tab4,tab7,tab32,tab40,rsm0,rsm2, 


rsm3,rsm5,rsm9,rsml10,rsm12,rsm13,rsml14; 


PeerAGe BODY rrem 15 


Bee le til global, -ab0 tabl, tabZ, tab4,tab/,f€ab3Z,cab40,rsm0,rsm2, 
Gsticeeeoms ,rsms ,-rsml0, rsmilz rsmi3,rsmi4: 


PROCEDURE vradar_scheduler [5S 


1 : INTEGER:= 9; 
fee NTECeR:= 2; 


--beam selection module CONSTANTs 


rdrint: CONSTANT INTEGER:= 21; 
peem que: CONSTANT INTEGER => e:; 
sr_que: CONSTANT INTEGER:= 2; 
srch_dwls: CONSTANT INTEGER:= 9; 
sr_dwls: CONSTANT INTEGER:= 2; 
rdr_rsrcs: CONSTANT INTEGER:= 100; 
trk_que: CONSTANT INTEGER:= 3 


mssl_que: CONSTANT INTEGER:= 4; 

trk dwls: CONSTANT INTEGER:= 10; 
mssl_dwls: CONSTANT INTEGER:= 5; 
ion ae : INTEGER; 

sru : INTEGER; 

sra : INTEGER; 


tot_dwl_schd: INTEGER; 
tot dwls : INTEGER; 
srch_sra : INTEGER; 
trk_sra : INTEGER; 
mssl_sra : INTEGER; 
Ssr_sra : INTEGER; 


hwe : boolean; 
et : INTEGER; 
rtim : INTEGER; 
oltim : INTEGER; 


dltatim : INTEGER; 


BEGIN 
Der earns 
Create(Text,""RSOUT.Txt",Write_Only) ; 
Open(Text,"RSOUT.Txt" ,Write_Only) ; 


WHILE (i < A_to_R.op_doct.mintvls) LOOP 
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i:= i+l1; 
Intvl num =o 


-- advance the radar loop event counts 


A nee ae ane aay 
advance ( nipid) cies 
rtim:= clock(}; -- from csr? in global. pkg 


-- swap external dwell buffers 
swap(buff_ptr,cm_ptr,j); <-- from rsm2.pkg 


-- enhance event priorities 
enhance(et); -- from rsm3.pkg 


-- rasynchronization module never written 
-- rsm4.pkg 


-- begin beam selection 

-- initialize the priority list traversal constraints 
et:= Q; 

rru:= QO; 

tot_dwl_schd:= 0; 

srch_sra:= srceh_dwls- 

trk_sra:= trk_dwls; 

sr_sra:= sr_dwis; 

mssl_sra:= mssl_dwls; 


tot_dwis:= sren_dwis + crk dwis + sr_dwis)= mssiacawie. 
== traverse tne ve=etori.y, Lise 

opl:= L; 

WHILE ((et < rdrint ) AND (rru < rdr_rsres) AND 


(tot_dwl_schd < tot_dwis) AND (ppl1"/= 0)" Lege 


-- check 20n any ems e7eeueue 
IF pri_lse (spl) .seastis oa 


-- traverse the prickity evemt queue . 
-- initialize the event queue traversal constraints 


CASE pri_list(ppl) gaemeene 

ri_ist(pp)) .quen 5 

WHEN eae eh 2 er srch_sra; 
WHEN special_request => sra:= sr_sra; 
WHEN track => sra:= trk_sra; 
WHEN missile => sra:= mssl_sra; 

END CASE; 


-- select a search type beam or a track type beam 
CASE pri_lst(pel)ecque aiasS 
WHEN search | special_request => 


--traverse the search event queue 
Spee Sores Vor et tr.Snode; 
WHILE (sp /= null) LOO 


-- get a Radar Event node 
r:= get_rect_node(); -- from RSM5B 


-- insert beam information into the node 
r.srch_dwl.ALL:= sp.inio.ALL; 
r.beamid:= r.srch_dwl.bid; 


-- fopmac the selecrtecmeccamc 
== de supplemetinan ys puocess tna 
-- rsm6 not writen 

-- do face assignment 

== sm? not wrlveem 

== Tadaksaectr ine 

-- rsm8 not writen 
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wee ee 





-- satisfy the hardware constraints 
hw_constraint(pri_lst(ppl).que_id,rru,r.dru,hwc) ; 


IF hwe THEN 


-- indicate to the Priority List that this 
See vecureiaoeseen, schedule 
pri_lst(ppl).slct_flg:= TRUE; 


-- fill the external table module 
primexct cab( buff ptr,occb tr(3). a 
per=r_to Ghee ene -- rsmlc 


Sememoecee cme dwell at the end of the Radar 
mwumeene Control Table list 
Pcnearebect Gtr); —-- from rsm5a.pkg 


-- load the evaluation module 
S- Comluenevel Written 


-- update the used resources 
IF (Ge. lst(ppl).que_id = search) THEN 
srch_sra:= srch_sra - 1; 


ELSE 
Se_3ra:= sr_sra - l; 
END IS: 
Eoteewiesecid-= Lot dwl_schd + 1-> 
Scus— sruer |. 
Bloe 


-- nardwars constraints nave not been satisfied 
eeeoenecemuode (rr); == from rcsm5c.pkg 

or Ts 

2ND IF: 


-- get next event in search or special request 
--queue 
Sp:= sp.nxt; 


END LOOP; 


jacroverces the search@event queue 


= pri_lst(ppl ue_ptr.Tnode; 
white’ (ap /= pprt; OOP 


-- nace a Radar Event node 
= get_rect_node(); -- from rsm5b.pkg 


-- insert beam information into node 
r.trk_dwl.ALL:= tp.info.p_trk.beam_data.ALL; 
r.beamid:= tp. ‘inven Dic: 


-- format the selected beam 

-- do supplementary processing 
-- rsm6 not written 

-- do face assi nment 

-- rsm7 not written 

-- radar doctrine module 

-- rsm8 not written 


-- satisfy the hardware constraints 
Reames thaint (ori slst(ppl).que_id,rru,r.dru,hwc) ; 


IF hwe THEN 
-- indicate to the Priority List that this 


-- event has been schedule 
Prielst(pol).sict flg:= TRUE; 
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: 

fill the external table module 
ae ext_tab(buff ptr,occb ptr()) yen ptr. \ 
pir saaeo Gor r.ocb_ cena), -- ie 


-- insert the dwell at the end of the Radar 
-- Event Control Table list 
llend(r,rect_ptr); -- from rsm5a.pkg 


-- load the evaluation module 
-- rsmll never written 


samupadate the used resources 
IF x 1st(ppl). que_id = track) THEN 
ee sra: trk_ sra - l; 


mssl_sra:= mssl_sra - l; 
END IF: 
BOt _dwi _schd:= tot_dwl_schd + 1; 
sru:= sru +l; 


BLOG ' 
-- hardware constraints have not been satisfied 
a pee rect_node(r); -- from rsm5c.pkg | 


~- get next event in track or missile queue | 
Be 2 8.9 6p. Gee 


LNDSEOO: 
ZND CASE; ! 
END iF; -- end traverse event que & check for empty que 


=> Computes nese lapsed 
elapsed_ ee cee cen) OMe ts. 2 aoe 


7 one us een naoaeey in the list 
PP pri_lst(ppl 


END LOOP; -- end traverse priority list | 


IF ie num MOD A_to_R.op_doct.dply_rect) = 0) THEN | 
dum -- from rsml3 


Put (Completed interval : ");Put(intvl_num) ;New_Line; 
END IF; 
-- free memory for next interval 
free_memory(pool_ptr,rect_ptr); -- from rsml4.pkg | 
END LOOP; -- end do one interval : 
Close (Text); 


END radar_scheduler; 
END rrcm; 
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-- OWNER:AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 23 Oct 86 

-- MODULE TYPE: local data structure declarations vers 4.0 
See Ooe. ceclare Radar scheduler local data structures 
-- NAME: Radar Scheduler Local Declarations ...RSMO.LIB 


-- This file contains all data structures internal to the Radar Scheduler 
-- Process. 


pragma arithcheck(off); pragma deb Renee eh 
pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on); 
@ pragma enumtab(on); pragma rangecheck(on); 


WITH tabl,tab2,tab7,tab32,tab40o; 
PACKAGE xrsm0 [5S 
USE tabl,tab2,tab7,tab32,tab40; 
--beam selection module CONSTANTs 


rdrint: CONSTANT INTEGER:= 21; 
srch_que: CONSTANT INTEGER:= 1; 
sigmetie= CONSTANT INTEGER:= 2; 
srchn_dwis: CONSTANT INTEGE 
sr_dwis: CONSTANT INTEGER: 
Memeecsrcs: CONSTANT INTEGE 
Pemeaue: CONSTANT INTEGEH: 
Moco aue: CONSTANT §INTEGER:= 
trk awls: CONSTANT INTEGER:= 
mssi_dwis: CONSTANT INTEGER:= 


So oNTEGER: 
ieee l num: INTEGER; 


a hh 


--Radar Event Control table node 
type OcbData IS RECORD 


ocb_purp : SRITEGER; 
tulaligil aallye js 7 speolean; 
face_assign eG EGER; 
prismel : ARRAY(1..2) OF INTEGER; 


doct_blnk_gte : INTEGER; 
ClEpepinkegte = INTEGER; 
mis_up_com eee ULeGER - 
mis_indx : INTEGER; 
xmit_freq_chnl : INTEGER; 
rcv_freq chnl : INTEGER; 
subchni_freq_grp: INTEGER; 


phse_code INTEGER; 
fFdbdk_phsecode : INTEGER; 
mjr_a_mode : INTEGER; 
b_submode : INTEGER; 
c_submode : INTEGER; 


ered _rp_sict : boolean; 


dwl_s Gel : INTEGER; 
detect_thrslds : AA ineee OF INTEGER; 
PatmCeenNnslds =< ARRAY(1..2) OF INTEGER; 
dwl_idx_num : INTEGER; 
elev_sctr : INTEGER; 
dply_azim : INTEGER; 
epilylelev oe NeBeeR; 
vid_extnt : INTEGER; 


rge_trk_gte_strt: INTEGER; 
END RECORD; 
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type RadEveConTab; 
type RECTPtr 1s access RadEveConTab; 
type RadEveConTab IS RECORD 
srch_dwl : SrchDatPtr; -- See TAB1.LIB 


trk_dwl : TrkDatPtr; -- See TAB7.LIB 
ocb_data : OcbData; 

beamid ; string(3); 

dru ; INTEGER; 

nxt_event ; RECTPtr- 


END RECORD; ; 
--end Radar Control Table node declaration 


sp: SearchPrtr;: == See TAbl ois 
tpo- Tere -- See TABZ.LIB 
ry REGIE EE. 


rect Dtr7 Reew oie: 
DOOLIOEr 3, Seer 
DUPE Oth.) = eeeces- -- See TAB40.LIB 
CMm_Ctr: Praucoe. -- See TAB32.LIB 


END rsmQ; 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 30 Nov 86 

=- MODULE TYPE: Radar Schedular Module vers 4.0 

-- PURPOSE: Initialize lists and variable for the Radar Schedular Process 
-- NAME: Radar Schedular Initialization ...RSMO.PKG 


pragma arithcheck(off); pragma ee OEE) | 
pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on); pragma rangecheck(on) ; 
WITH tabl,tab2,tab7,tab32,tab40; 
PACKAGE BODY rsm0O [IS 
USE tabl,tab2,tab7,tab32, tab40; 
-- initialization module constants 


beeen th: CONSTANT INTEGER:= 22; 
uff_pool_length: CONSTANT:= 2; 


memesocecdire make pool is derived from PL1 RSMZA module (MAKE POOL). 
-- This procedure creates a pool of available Radar Event Control 
-- Table nodes (see RSMO). 


On) 


PROCEDURE make_nool(firstNode:IN OUT RECTPtr;numb_nodes:IN INTEGER) I 


@ount: INTEGER: 
Bea: RECIPtr -= NEW RadEveContlab; 


Peat cevent:= null; 
p.srcn_dwl:= New SrchData; 
D.trk dwl:= New TrkData; 
ea= FirstNode; 

p.ALL:= FirstNode.ALL; 


FOR count IN 2..numb_nodes LOOP 
q:= NEW RadEveConTab; 
q.srch_dwl:= New SrchData; 
q.trk_dwl:= New TrkData; 
q.nxt_event:= null; 
p.nxt_event:= q; 
PeoxctecventealLe:=— G.ALL- 
Beso ence event: 

END LOOP; 


END make_pool; 
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~~ This procedure is derived from PL1 RSMIB (CREATE DWELL BUDPERMEGgm oe 
~~ This procedure creates two circular lists for each of thevconmea 

-- memory interfaced data structures (see TABLE32 & TABLE40) which 

-- receive the formatted dwells from the Radar Scheduler Process. 


PROCEDURE ex_buff_create(buff1:IN OUT OCCBPtrArray;buff£2:IN OUT ROPtrArray; 
length: IN INTEGER) IS 


pl,ql:PtrOccb := NEW OccbType; 
p2,qz2:PtrRtoO := NEW RtoO; 
ctr,j: INTEGER; 


BEGIN 
HORS deli. 2 LOOP 
pl:= burfl(3); 
Plot null: 


2:= buff2(j); 
SS i Alege sd, 


HOR CEG IN 1 sclengeh: LOOP 
ql:= NEW OccbType; 
Gl. linke= null: 


OL Link: = ade 
a2:= NEW Rtod; 

G27 flak —— gues 
2.link:= a2; 


~~ create circular lists 


Gil ink /=25u See) 
Gen brink: = DuUee2 (a) 
END LOOP; 


END ex_buff_create; 
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BEGIN 


2ND 


pool_ptr:= NEW RadEveConTab ; 
POOLLPp ur. “nxt event:= null; 
pool _ptr.srch_dwl:= NEW SrchData; 
pool_ptr.trk_dwl:= NEW TrkData; 
make_pool(pool_ptr, pool_length) ; 
buff_ptr:= NEW OccbType; 
buff_ptr. link:= null; 
eee ers = NEW Rtod 

BEC -link:= mate 

uff “create(occb_ptr, penance, bute pool length) ; 


sp:= NEW SearchNode; 
sp.info:= NEW SrchData; 
soenxt:= null; 
to:= NEW TrackNode; 
tp.into.p_trk:= NEW TrkFi ile 
moe lino . +PL trk.beam_data:= NEW TrkData; 
CT ae ranelib iL 

NEW RadEveConTab; 
- ‘srch dwl:= NEW SrchData; 
r.trk_dwl:=NEW TrkData; 
Rene C event: = null; 
rect_ptr:= NEW RadEy reConTab; 
rect_ptr.sreh_ dwt: = NEW SrchData; 
Beeteotr.trk_dwl:= NEW frkData; 
rect otr nxt. Recess = a) 


rcsmo ; 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 30 Sep 86 

-- MODULE TYPE: internal routine for the Radar scheduler sevenomems 
-- PURPOSE: swap oueSeY buffers for the next scheduling intervial 
«= NAME :" SWAP... RStiz oes 


-- This module maintains the pointers to the two_non-current dwell buffers 
-- which are the destination of the formated dwells scheduled dumiigmaa. 
-- current scheduling intervial. 


pragma arithcheck(off); pragma debug cee 
pragma enumtab(off) ; pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on) ; pragma rangecheck(on) ; 


WITH tab32Z,tap40; 
PACKAGE. FsSiiaa es 


USE tab32,tab40o; . 
PROCEDURE swap(buff:IN OUT PtrOccb;cm:IN OUT PtrRtoO;index:IN OUT INTEGER)§ 


END rsm2; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 30 Sep 86 

MODULE TYPE: internal routine for the Radar Scheduler vers 2.0 
PURPOSE: swap eee buffers for the next scheduling intervial 
Pere: SWAP... RSMZ.PRKG 


This module maintains the pointers to the two non-current dwell buffers 
eom@eneare thescestinacion of the formated dwells scheduled during the 
current scheduling intervial. 


pragma arithcheck(off); pragma Seay 
pragma enumtab(off); pragma rangecheck(off) ; 
pragma arithcheck(on); pragma debug(on); 

pragma enumtab(on); pragma rangecheck(on) ; 


WITH tab32,tab40; 
PACKAGE BODY rsm2 IS 


USE tab32,tab40; 
PROCEDURE spon (buseN OUT PtrOccb;cm:IN OUT PtrRto0;index:IN OUT INTEGER) 
5 


SEGIN . 
iF (index=2) THEN 
index:= 1; 


END swap; 


END rsmZz; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 30 Sep 86 

MODULE TYPE: Radar Scheduler Module vers 3.0 

PURPOSE: enhance and dehance priorities of events in the Radar Event 
Pr Or 106 yar lees 

NAME: enhance... RSM3.LIB 


This module enhances the priorities of the radar events as listed in 
the Priority List if certian conditions are met. The conditions are: 
1. The enhance flag must be set to true 
2. The 1ltx value must be greater than the allwd_1ltx value 


ragma arithcheck(off); pragma debug(off); 
Scaana etree yan peace Fone Ree). 
pragma arithcheck(on); pragma debug(on) ; 
pragma enumtab(on); pragma rangecheck(on) ; 


PACKAGE rsm3 [5S 


PROCEDURE enhance(elapsed_time: IN INTEGER); 


END rsm3; 


late 











OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 30 Sep 86 

MODULE TYPE: Radar Scheduler Module vers 3.0 

PURPOSE: enhance and dehance priorities of events in the Radar Event 
meaority List 

NAME: enhance... RSM3.PKG 


pragma arithcheck(off); pragma SEU OEE) 7 
pragma enumtab(off) ; pragma Mea (off); 
pragma arithcheck(on); pragma debug(on) 

pragma enumtab(on); pragma rangecheck(on) ; 


WITH tab0O; 
PACKAGE 80DY vrsm3 IS 


USE tabd; 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 26 Nov 86 

MODULE TYPE: Radar Scheduler Subroutine 

BeRPOsE: remove, insert and reset the current oriorities of Priority 
mest events 

NAME: Remove and Insert ... RSM3A 


MeeemOdULe Tocates a request event) node in the priority lis 
Removes it from its current prior. mse (OCatesuges new o$icion 
P@meene priority list, and inserts Jt there 


a] 


PROCEDURE ripi(curnt, new_p: IN INTEGER) [Ss 


eee INN RGER:= Lb; 
04: INTEGER:= 1; 
eemol. cempz: £ 


BEGIN 
IF (curnt /= gow P? THEN 
-- remove the no from its current position 
peeres Pra Ist(p).c_pri /= curnt) LOOP 


D; 
= pri_lst(p).nxt; 
END ‘LOoF; 
temp Pi 
pri_ Pst 4) .nxt: = prin ist(temp1). nxt; 
pra ist temp1). nxt:= ; 


a insert the node at the new priority 


“a pri. lst(p).c_pri /= new_p) LOOP 


rat _Ist(p).nxt; 
END 1 LOOP ; : 
comp? Pi 
pri _ Past 4) .nxt: pou 
Bri, ist temp1). ae = temp2; 


-- reset all current priority values 
eeupt = O. 


RAILE’ (p /= 0) LOOP 
ae Hale it el: t if 
pri_ Ss c_pri:= temp 
ist (p) «nx 


END ripl; 
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-- This module enhances the priorities of the radar events as listed in 
-- the Priority List if certian conditions are met. The conditions are: 
-- 1. The enhance flag must be set to true 

-- 2. The 1ltx value must be greater than the allwd_ltx value 


PROCEDURE enhance(elapsed_time: IN INTEGER) IS 


pis) INTEGER Sa 
new_pri: INTEGER; 


BEGIN 
-- reset the value of lLtx Zor all events 


WHILE (ph eeersc( ) sce, = eeeOOr 
Oo Gigs ip). sleet rE 
Die St (Disc 0 
FieLSc( >) <sleeorid:= falser 


pri_lst(p).ltx:= pri_lst(p).1ltx + elapsed_time; 
END =. 
D2= pre !St (pp). ame 

SND LOOP: 


== Chavebsenthe sor) Oi alee eee 
SOR D IN #o@enhne maka weeoOr 


"= Lookponly tor evéentseenich cance pen@amars 
[F ((pri_ist(p).ennnc) AND (erislst( oj esencis ca 


-=- 15 slapsed time more than allewea se sne- 
IF (pri_lst(p).itx > pri_lst(p) -allve tex ae 
-- current priority is above standard enhancement. value 
-- but Delow the lowest enhancement value 
IF ((pri_lst(p).c_pri <= (pri_lst(p).b_pri - 4))ane 
(pri_lst(p).c_pri > lo_enhnc)) THEN 


new_pri:= pri_lst(p).c_pri - 1; 
ELSE | | 
new_pri:= praise - 4; 
-- do not enhance past the lowest enhancement value 
IF (new_pri < lo_enhnc) THEN 
new_pri:= lo_enhnc; 
END = Es; 
END IF; 


-- insert the event at its new priority in the Radar Event 
=5 "Piel (pei leet ) P 
ie ri_lst(p).c_pri, New_pri); —— sronenowe. 
=p if, P P)+C_p —P 
END IF; 
END LOGP; 
END enhance; 


END rsm3; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 8 Dec 86 

MODULE TYPE: Radar Scheduler Subroutines 

PRUPOSE: Support the Beam Selection process 

NAME: Beam Selection Routines... RSM5.LIB vers 2.0 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 30 Aug 86 

MODULE TYPE: Radar Scheduler Subroutine 

PRUPOSE: insert a node at the end of a linked list 
NAME: llend ... RSMSA 


This subroutine has two input parameters: '"q! is a pointer to the 
Meee aitci) 15 CO De inserted. "s" is a pointer to the list to which 
meemnoce iS to Je inserted at the end of. 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 30 Aug 86 

mebUEE tYPE: seam selection subroutine 
Bone: as$ign a Radar Event Control Node from a pool of available 
nodes 

NAME: Get Rect Node ... RSM5B 


iie-mnediite 1O0Gates che first availiable RECT node from the pool. It 
meWevesmcue node cSrom the pool and passes 1its,pointer back to the 
meomang orocedure. 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 30 Aug 36 

MODULE TYPE: Seam Selection subroutine 

PURPOSE: return an tuinused RECT node to the available pool of nodes 
Pete sree RECT node ... RSIIEC 


Mepsemoaule returns an unused radar eevent control node to the 
Seed te Pool Of Sadar 2vent control nodes. 


pragma pee Ge LOrt).) pragma Soeeaoee 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on); 

pragma enumtab(on); pragma rangecheck(on); 


WITH rsm0; 
PACKAGE rsm5 IS 


USE rsm0Q; 
PROCEDURE llend(q,s: IN OUT RECTPtr); 


FUNCTION get_rect_node RETURN RECTPtr; 
PROCEDURE free_rect_node(p: IN OUT RECTPtr); 


END rsm5; 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 8 Dec 86 

-- MODULE TYPE: Radar Scheduler Subroutines vers 2.0 
-- PRUPOSE: Be sees the Beam selects. rocess 


-- NAME: Beam 


@ 
@ 


election Routines... RSM5.PKG 


pragma a ena e ae pragma eee OEE 
pragma enumtab pragma aS eee (off); 
pragma ee es ; pragma debug(on) 

pragma enumtab(on) ; pragma rangecheck(on) ; 


WITH tabl,tab7,rsm0; 
PACKAGE BODY rsm5 IS 


USE tabl,tab7,rsm0: 


-- pointers for procedure/function use only 
p: RECTPtr; | 


-- OWNER: AEGIS Modeling Group 


DATE OF LAST UPDATE: 30 Aug 86 

MODULE TYPE: Radar Scheduler Subroutine 

PRUPOSE: insert node at the end or a linked list 
NAME: tLlLend ... RSM5Aa 


This subroutine has two input eres "aq" Is 4 pOlNter tome 
node which aS co De Inserecar 1s a pointer to the list to Wihaed 
the node ls to be inserted at ne end ot. 
CROCEDURE esol Gel 2s EN OU RECTPtr) 1S 
ZEGIN 

“-- set the new node’s pointer to null 

q.nxt_event:= nul:; 


-- check ror an empty list 
IF oe = null) THEN 


ELSE 
WHILE (p.nxt_event /= null) LOOP 
De= peiseeevemn. 
END LOOP; 
-- insert the new node at the end of the list 
penx eeeVenes— acre 
END IF; 


END llend; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 26 Nov 86 . 

MODULE TYPE: Beam selection subroutine | 
eee assign a Radar Event Control Node from a pool of available 
nodes 

NAME: Get Rect Node ... RSM5B 


This module locates the first available RECT node from the pool. It 
Removes the node from the pool and passes its pointer back to the 
invoking procedure. 


PeenreTION get_rect_node RETURN RECTPtr IS 


BEGIN 
Tr (poolt_ptr = null) THEN 


pool _vtr:= NEW kadEveConTab; 

peo Ommesrchodwi:> NEW srcenData; 

pooliwort.crk awl:= NEW dekData; 
BND iF; 


-- set p to pool_ptr then relink the list 
O:= pool ptr; 
Pou ory == HOOl tr. net event ; 
D-nxXt event:= null; 

RETURN o; 
Sipeget rect _iode; 


ey 


OWNER: AEGIS Modeling Group | 
DATE OF LAST UPDATE: 2 Dec 86 / 
MODULE TYPE: Beam Selection subroutine 

PURPOSE: return an unused RECT node to the available pool of nodes 
NAME: Free RECT node ... RSMS5C 


This module returns an unused radar event control node to the 
available pool of radar event control nodes. 
PROCEDURE free_rect_node(q: IN OUT RECTPtr) IS 
BEGIN | 
~~ set link to null 
q.nxt_svent:= null; 


“= insert the node at the end of the node sool list 


[LP (pool Orr = null tHE 
pOOL Ionm >= a; 
ELSE 
:= pool_ptr; 


HILE (p.nxtsevent y= nul] E@or 
De= Denseesveh ae. 
23ND ‘OOP; 
-- insert unused node 
5.nxt_event:= q; 
SD fae 


END free_rect_node; 


SEGiIN 


-= initialize’ pointer one time tovavord setnietalza: cores 


-= Eames Broceaure, aimee One seeds eer 
O:= iw RackveContap. 


eND rsm5; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 30 Sep 86 

MODULE TYPE: internal radar scheduler routine vers 2.0 
PURPOSE: ensure dwells satisfy the hardware constraints 
Neue: hwo constraint ... RSM9.LIB 


For test purposes this routine assigns a fixed percentage of 
the Radar Resources available to the current beam being formatted. 


ragma arithcheck(off); pragma debug(off); 
Beecia saan EaE eee Sean Pence ecto fe): 


@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on) ; pragma rangecheck(on) ; 
WITH tab0d:;: 


BeeaaGe rsm9 [5S 


USE tabQ; . 
PROCEDURE hw_constraint(id:IN QueType; rru,dru:IN OUT INTEGER; 
hwe :OUT BOOLEAN) ; 


END rsm9; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE. 30 Sep 86 

MODULE TYPE: internal radar scheduler routine vers 2.0 
PURPOSE: ensure dwells satisfy the hardware constraints 
NAME: hw_constraint ... RSM9.PKG 


For test purposes this routine assigns a fixed percentage of 
the Radar Resources available to the current beam being formatted. 


ragma arithcheck(off); pragma debug(off); 
Sacre enumtab(off); pragma Pera Nee Bee) , 


@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtab(on); pragma rangecheck(on) ; 
WITH tab0; 


PACKAGE BODY rsm9 [5 


USE tab0: 
PROCEDURE hw_constraint(id:IN ee Oo rru,dru:IN OUT INTEGER; 
hwc :0 BOOLEAN) IS 


srch_pcnt: CONSTANT INTEGER:= 3; 
Sr_ocnt: CONSTANT INTEGER:= 6: 
Cr kepe ne (esta meee eon >= 7; 
MSSH_ Sent: CONSPAN Pa imaGek = i7-; 


Seueo te  eNleGan ; 


SEGIN 
“= determine correct percent Of resource for ei yee ec iene 
CASE Aue ts 
WHEN search => vercent:= srch_pdcnt; 
WHEN specilal_vrequesz => percent:= sr_pent; 
WHEN track => percent:= trk_pcent; 
WHEN missile => percent:= mssl_pcnt; 
END CASE; 


Bylli= orl +) percent. 
-- are the hardware constraints satisfied ? 


Hyg ane < 100) THEN 


ru:= 100 - rru; 
hwce:= true; 
ELSE 
Poller ru = Dercent: 
hwe:= false; 
END IF; 


END hw_constraint; 


END rsm9Q; 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 30 Sep 86 

-- MODULE TYPE: internal radar scheduler routine vers 2.0 
-- PURPOSE: output selected and formatted dwells 

-- NAME: fill external tables ... RSM10O.LIB 


-- This module fills the two common memory interface dwell buffers 

-- with the data on the formatted dwells. The buffers are couble 

-- buffered Se eae Tinked lists. Each time this module is executed 
-- the pointers are advanced to the next node in the list. 


pragma arithcheck(off); pragma See e ee) 
pragma enumtab(off); pragma rangecheck(cff); 
@ oragma arichcheck(on); pragma debug(on); 
@ pragma enumtab(on) ; pragma rangecneck(on) ; 


WITH tab32,¢cab40,rsm0; 
PACKAGE rsmlO [S 
USe tab32,tab40,rsmtc; 


Pease nee ol eeteeaoi Denese OUE PETOCCD:03,p4:IN SUT PtrRtoo; 
or:iN OcbData) ; 


iz] 


-- OWNER: AEGIS Modeling Group 
-- DATE OF LAST UPDATE : 30 Sep 86 
-- MODULE TYPE: internal radar scheduler routine vers 2.0 


== PURPOSE 


: output selected and formatted dwells 


-- NAME: fill external tables ... RSM10.PKG 


-- This module fills the two common memory interface dwell buffers 

-- with the data on the formatted dwells. The buffers are double 

=- bpuftewed ere linked lists. Each time this module is executed 
Vv 


-- the pointers are a 


anced to the next node in the list. 


pragma arithcheck(off); pragma debug (ouay 
pragma enumtab(off) ; pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on); 
@ praqma enumtab(on); Sragma rangecheck(on); 
WITH tab32,tap40,rsm0; 


PACKAGE BODY rsmiO IS 
USE tabs2,ctap40,rsm0; 
PROCEDURE fill_2xt_tab(pl,pZ:IN OUT ?trOccb:03,p4:IN OUT PtrRtod; 


3EGIN 


Or. iN /OebData m5 


((pl /= p2) AND (p3 /= p4)) THEN 
Diet; 
oon Link; 


lore 
loli 


fill channel curser 2 sleclure 


pOacCnEr !). vOrduedremsiicons seh aie Lae 
OM. 2AC@ += py seme Sa aiccac. 

Proj guay elgit se ay) e 4 
estes: 
VF 

ot : = 
-ol.xmit_freq:= pr.xmit_freq_chnl; 
-ol.rev_freq:= pr.rcv_freq_chnl; 
.o}.subchnl_freq_group:= pr.subchnl_freq_grp; 
.o_f.phsel_code:= Pot 
.og.fdbkl:= pr.fdbk_phsecode; 
.oa.cntrl_word.freq_group_slct:= pr.fre grp_sict; 
.o1.dwl_l_start_time:= Er ); 
.ob.detectl_thrsld:= pr.detect_thrslds(1); 
.ob.detect2_thrsld:= pr.detect_thrslds(2); 
.ob.detect3_thrsld:= p 

.oe.truncl_thrsld:= Beco ey 
.oe.trunc2_thrsld:= pr.trunc_thrslds 
JOGmebevmSeGtOn>s— Prleileveceut: 

CS cheege i PEs Cp ace 

OL Uap ny 

“OS. VidGO EXtnt:= Dr. gemuykecqtessuac. 


Dee NE Ne 

br pricmti(2 ; 

pr.mis_up_com; 
r.mis_indx; 


| 


ioerens 


1).otmsb: 


hse_code; 
pr.detect_thrsld 


3 


, 


r.detect thrslds 
2 


« 
é 


elev:= pr.dply_elev; 


fill R_to_O Table structure 


.dwl_data.mode:= pr.mjr_a_mode; 
.dwl_data.face:= pr.face_assign; 
.dwl 
.dwl_data.sub_mode 


FATS eee pr.b_submode; 
2):= pr.c_submode; 


.dwl_data.dwl_idx:= pr.dwl_idx_ num; 
.dwl_data.beam_purpose:= pr.ocb_purp; 
.dwl_data.dwl_start_idx:= pr.dw 
.dwl_data.doct_unblnk_gates:= pr.doct_blnk_gte; 
.dwl_data.clutter_unbInk_gates:= pr.cItr_bInk_gte; 


Streacti. 


lee 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 21 Aug 86 

MODULE TYPE: internal Radar Scheduler eneteine | Vetoes. 
PURPOSE: compute pease interval elapsed time 

NAME: Elapsed Time ... RSM12.LIB 


This module is designed to compute the amount of time the Radar 
Scheduler has spent selecting a beam from the current requested 
event queue. The routine swaps the old real time value for the 
current real time value (in milliseconds) and then computes the 
new value of the real time and updates the elapsed time. 


pragma arithcheck(off); pragma SCE ENCE: 
pragma enumtab(off) ; pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on); 

pragma enumtab(on) ; pragma rangecheck(on) ; 


PACKAGE rsml2 IS 


PROCEDURE elapsed_time(et,rtim: IN OUT INTEGER) ; 


END rsml2; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 21 Aug 86 

MOOULE TYPE: aunternal Radar Scheduler routine — 

EPUREOoR: compute SG ete, interval elapsed time vers 2.0 
NAME: Elapsed Time ... RSMI2.PKG 


This module is designed to compute the amount of time the Radar 
Scheduler has spent selecting a beam from the current requested 
event queue. The routine swaps the old real time value for the 
current real time value (in milliseconds) and then computes the 
new value of the real time and updates the elapsed time. 


pragma arithcheck(off); pragma debug(off) ; 


Dragma 4numtabiort); Dragma aincecaecs One): 
Bragma arathcheck(on); pragma debugq(on); . 
pragma enumtab(on); pragma rangecheck(on); 


WITH global; 
MecesnGe SODY rsmlz IS 


USZ global; 
PROCEDURE 2lapsed_time(et,rtim: IN OUT INTEGER) fs 


oltizm: INTEGER; 


BEGIN 
eres Ms | | | 
motte LOCKt )> ; pe OCemaeoM csl/ in clobal 
Sa oe - Tlim - "OLcim: 


=ND elapsed_<ime; 


BND vsmicz; 
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OWNER: AEGIS MODELLING GROUP 

DATE OF LAST UPDATE: 30 Sep 86 

MODULE TYPE: Internal Radar Scheduler poueiiemeversma 

PURPOSE: Print out the results of the Latest seheduling interval 
for analysis 

NAME: Dump ... RSM13.LIB 


This routine prints out the information on the radar request queues 
and the scheduled dwells for the current interval. The inftcoumaewed 
printed consists of: 


1. Requested Beam Listing 
a. The name of the Event whose queue is being printed 
b. The identification code or the requested beam 
c. The requested beam's position within the queue 

2. Scheduled Dweli Listing 

a. The scheduled dweil's unique identification code 

Db. The amount or Radar Resources remaining arter the 
scheduling or the dwell - expressed as a percentage 

c. The index into the current interval's Radar zvent 
Control Table 


oragma arithcheck( 


heck(off); pragma debuq(off); 
oragma enumtabd(orl); 


pragma cangecheci:(off£) ; 


@ pragma aritheneck(on); pragma depug(on); 
@ pragma 2numtap(on); pragma rangecheck(on); 
Wit 20; 


PRCKAGS 2somils 2s 


PROCEDURE  1uno- 


END rsml3; 
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-- OWNER: AEGIS MODELLING GROUP 

-- DATE OF LAST UPDATE: 26 Nov 86 

=-- MODULE TYPE: Internal Radar Scheduler routine vers 2.0 

-- PURPOSE: Print out the results of the latest scheduling interval 
a for analysis 

BeeONAMNE: Dump ... RSM13.PKG 


-- This routine prints out the information on the radar request queues 
mecana the scheduled dwells for the current interval. The information 
-- printed consists of: 


fame t. Requested Beam Listing . 
=" a. The mame of the Event whose queue 1s being printed 
ae Dee licmice obec aelon codeso: the requested beam 
-- c. The requested beam's position within the queue 


-- 2. Scheduled Owell Listin 


=< a. The scheduled dwell's unique identification code 
-- b. The amount of Radar Resources remaining after the 
-- c. The index to the current interval's Radar Event 
-- Control Table 

pragma arithcheck(off); pragma debug(off) ; 

oragma enumtab(ort); oragma rangecheck(cff); 
@ pragma aricthcheck orf) ; oraqma debug(ofz); 
@ pragma 2numtab(crf); pragma rangecheck(orf); 


WITH tabO,tabl,cab2,rsm0,io,Util> 
Bee wsce BODY rsml3 i5 
USE =ab0,tabl,tab2,-sm0,I[o,Util; 


Son: string 
eeeb? Searc. 
meer: Lrkc ur 


PROCEDURE dump IS 


Stn INTEGER:= 1; 
start,ctn,1: INTEGER; 


BEGIN 


Put(Text,REQUESTED BEAMS FOR SCHEDULER INTERVAL: Hoye 

Put(Text,intvi_num,5); New_Line(Text); 

Put(Text,dsh); New_Line(Text) ; 

WHILE (ctr /= 0) LOOP | 
Put(Text,pri_lst(ctr).eventnm); New_Line(Text); 


Ih wepietst(clh).status THEN 
Beene se Bent LD Wy. 
dais 5 


CASE pri_lst(ctr).que_id IS 


WHEN search | special_request => 
are DEL Steer) « ue_ptr.Snode; 
WHILE ((i < ae) AND (Sax /= null)) LOOP 
d=) leo Le 
Pine <tycotk.Inio .bid); Put(Text,' ")-: 
sptr:= sptr.nxt; 
END LOOP; 


WHEN track | missile => 
eee pri_ist(ctr).que_ptr.Tnode; 
WHILE ((i < ee AND (Cage /= null)) LOOP 
es etal; 
FURC text tpotr.tnfo -bid); Put(Text," "):; 
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t{ptre= tpctr.nxc, 
END LOOP; 


END CASE; 


New_Line(Text) ; 

Put(Text, "QUEUE POSIT "); 

FOR ctn IN 1..i LOOP 
Put(Text, ctn, 4); 

END LOOP; 


New_Line(Text) ; 
Put(Text,dsh); New _Line(Text); 


ELSE 


Put(Text,’ NO REQUESTS THIS INTERVAL") ; 


New “Line (Text); Put(Text,dsh); New_Line(Text) ; 
END E- 


ctr:= prillst(ctr) jane 
END LOOP; 


New_Line (Text) ; 

Put(Text, “SCHEDULE D SWELLS 2sOR SC CHEDULER INTERVAL: {2 
Put( Text,intvi_hum,5)}; New_“ine( Text), 

Put(Text,dsh); New_Line(Text); 

Eoin = —seCC pln. 

States = Le 


WHILE §rotr /= nul.) BOOP 


Dut (Te , (BEAMALD Ms 

WHILE ie i ee AND (p /= nulil)) LOOP 
L:= 1 
Put (Text, D. beamid); Put(Text," "); 
P:= p. nxt wevVene- 

END LOOP; 

New Line(Text); 

ee "RESOURCES NW), 


; 


baat (d x 10) AND (p /= null)) LOOP 


Put (Text, p.dru,4); 
P:= p. nxt_ event; 
END LOOP; 
New_Line(Text) ; 
Put(Text,"DWELL # ee 
FOR ctn IN start..(start + i - 1) LOOP 
Put(Text,ctn,4); 
END LOOP; 
New Line (Text) ; 
Ee Text, nal ‘New_Line (Text); 
P /= nul THEN 


tr:= 
art: eer + i; 
ELSE 
rptr:= null; 
END IF; 
END LOOP; 


Put(Text,dsh); New_Line(Text); New _Line(Text) ; 


END dump; 
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=~ initialize working pointers one time to avoid reinitialization 
-- each time procedure is invoked 

sptr:= NEW SearchNode; 

tptr:= NEW TrackNode; 

rptr:= NEW RadEveConTab ; 

p:= NEW RadEveConTab; 


END rsmi3; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 29 Aug 86 

MODULE TYPE: internal Radar Scheduler routine vers 2.0 
PURPOSE: free memory for the next scheduling interval 
NAME: Free Memory soi ensue 


This module traverses the available RECT pool list and inserts the 
current Radar Event Control Table list at the end of the pool. 


pragma aT ee pragma SACI ) 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug{on); 

pragma enumtab(on); pragma rangecheck(on); 


Ae esi - 


PACKAGE rsml4 {5 


USE ssmQ; 
PROCEDURE free_memory(pool_ptr,rect_ptr:IN OUT RECTPtr) ; 


ZND rsml4; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 29 Aug 86 

MODULE TYPE: internal Radar Scheduler routine vers 2.0 
PURPOSE: free memory for the next scheduling interval 
NAME: Free Memory ... RSM14.PKG 


This module traverses the available RECT pool list and inserts the 
current Radar Event Control Table list at the end of the pool. 


ragma arithcheck(off); pragma debug(off); 
geome BTR ESE (GES) Brena SE Eo Ree ee) 


@ pragma arithcheck(on); pragma debug(on); 
@ pragma enumtab(on); pragma rangecheck(on) ; 
WITH rsm0Q; 


PACKAGE BODY rsml4 I5 


USE rsm0; 


-- pointer for procedure use only 
Beene CriPer ; 


PROCEDURE free_memory(pool_potr,rect_ptr:IN OUT RECTPtr) [IS 


BEGIN 
tee poolsore = 2ull) THEN 
pool_otr:= rect_potr; 
eG emma = HuUl?: 


Bass 
Be DO0l Str: 
WHILE (p.nxt_event /= null) LOOP 

b= O- 1 PVeNE; 

2ND LOOP; 
Peake SsVENC:= £ 
Reger Gr := null, 

END IF; 

END free_memory; 


——. 


el aS pea 
é 


BEGIN 


-- initialize working pointer one time to avoid 
-- reinitialization each time procedure is invoked. 
p:= NEW RadEveConTab; 


END rsml14; 
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APPENDIX D 
TEST HARNESS SOURCE CODE 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 24 Sep 86 

MODULE TYPE: Display Subroutine vers 2.0 
PURPOSE: Operator Interface 

NAME: Operator Interface Module ... SADM1.LIB 


This module provides the user of the Radar Scheduler Test 
Harness (SPY.CCM) with the ability to alter Sonemormeae 
major program parameters prior to execution of the program 
with out having to alter the source code, necompate and 
link the program. 


pragma paella) Says hae pragma Ge PUSKCeE yy 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on); 
oragma enumtab(on); pragma rangecheck(on); 


PACKAGe sadml IS 


PROCEDURE oim(numtrks ,numintvis,skipintvis: OUT INTsGo ee 


END sadml; 
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-- OWNER: AEGIS Modeling Group 

palate OF LAST UPDATE: 24 Sep 86 

== MODULE TYPE: Display Subroutine vers 2.0 

== PURPOSE: Operator Interface 

s- NAME: Operator Interface Module ... SADM1.PKG 


-- This module provides the user of the Radar Scheduler Test 
-- Harness (SPY.COM) with the ability to alter some of the 

-- major program parameters prior to execution of the program 
See een Out having to alter the source code, recompile, and 
-- link the program. 


pragma arithcheck(off); pragma debug(off); 


pragma enumtab(off); pragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on); 
@ oragma enumtab(on, ; oragma rangecheck(on); 
WITH Util: 


PaGnaGek SODY: sadml iS 
Wee Util; 
PROCEDURE oimc(numtrks,naumintvis,skipintvls: OUT INTEGER) [S 


astrk15: CONSTANT STRING:= 
spacelO: CONSTANT STRING:= ' iP 


Ye eile te eee 4. eo See ee eee 


SEGIN 
eWrtascrklS): Purc" AEGIS AN/SPV1-4 Ue 
Put(astrkiS); New_“ine:; 
PME asrwcl>)-; Einec" RADAR SCHEDULER PROGRAM ee 
Pac(astrkl15); New_Uine: | 
Rimecieiaicts ) mele vascricls)+ PurlastrklS})- PutlastrklS) ; 
New Cine; New _Line; ‘Iew_Linse; Mew Line; 


Ue enbtuwemere mUMNDes Ch cracks =O be initials»zed."); 
New_Line; New_Line; Put(spacel0); . 
Put("NUMBER OF TRACKS ---> "); Get(numtrks); New_Line; 
New_Line; New_Line; 
Put ("Input the number of scheduling intervals to be run."); 
New_Line; New_Line; Put(spacel0) ; 
Put("NUMBER OF INTERVALS ---> "); Get(numintvls); 
Hewriine; New Line; New _Line; 
Put("'Define the interval display delay period."); 
New_Line; New_Line; Put (spacel0) ; — . 
Put("SKIP INTERVALS ---> "); Get(skipintvls); New_Line; 
New_Line; New_Line; New_Line; 
Bee eeet oO): Put(spacel0); Put("BEGIN EXECUTION") ; 

Cw Line; 


END sadml; 
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e- OWNER: AEGIS MODELING GROUP 

-- DATE OF LAST UPDATE : SP eaUGee5 

-- MODULE TYPE: PROCESSiy eam 

-- PURPOSE: MODEL THE RADSReseneDURER Ruliee Lo) 
-©=- NAME: SEARCH MANAGEMET Tw ere (ae 


-- The purpose of this module is to manage the 

-- request of search and special request radar 

-- events. The current pies processes static 
-- data for the Radar Scheduler Test Harness. 


pragma arithcheck(off); pragma debug(orf) ; 


pragma enumtab(orr); oragma rangecheck(of£) ; 
@ oragma arithcheck(on); pragma debuq(on); 
@ oragma enumtab(on); pragma rangecheck(on); 


PACKAGE srem I§ 
PROCEDURE searchmomt; 


END srem- 


-- OWNER: AEGIS MODELING GROUP 

“ore OF LAST UPDATE : 30° Sep 86 

S—newoee LyYPBe: PROGCESS VERS 3.0 

See eURrOSE: MODEL THE RADAR SCHEDULER FUNCTION 
-- NAME: SEARCH MANAGEMENT ... SRCM.PKG 


-- The purpose of this module is to manage the 

pemreuiest Of Search) and special request radar 

-- events. The current design processes static 
-- data for the Radar Scheduler Test Harness. 


pragma arithcheck(off); pragma BeRUOWOE) i 
pragma enumtab(off) ; pragma rangecheck(off) ; 
@ pragma arithcheck(on); pragma debug(on); 
@ pragma enumtap(on); pragma rangecheck(on) ; 


WITH global,tab0,smml,smm2; 
PACKAGE BODY srcm IS 
USE global, tab0O,smml,smm2; 
PROCEDURE searchmogmt [fS 
Lquad: INTEGER: 


TYPE BeamCount IS ARRAY(1..Z) OF INTEGER; 
Brect he seamcount ; 


Boweesnum,i: INTEGER; 
BEGIN 
PS Otetitradlised =Cr cest Surposes, taken from smml 
peeeolade—- 1 
foewsnecce |) = 0; 
== om Ctr(zZ):= C; 


Smad € ; ae -- from smml.pkg 
HOR iN) 1. -antrnity LOOP 
await(s_pid,es_id,i); 


-- traverse the radar event priority list 


eae 1 /= 0) LOOP 
IF a .que_id = search) OR 


eis tt Be 
(aLeigues ).que_id = special_request)) THEN 
fill_que(pri_lst(ppl)); 


ENDsLE; ; 
DO rme EO chemnes € aa tithe List 
ppl:= pri_lst(ppl).nxt; 
END LOOP; 
END LOOP; 
END searchmomt; 


END srcecm; 


135 


AEGIS MODELING GROUP 

DATE OF LAST UPDATE: 31 AUG 86 

MODULE TYPE: SEARCH MANAGEMENT MODULE vers 2.0 

PURPOSE: INITIALIZE THRE SHARCH EVENT SOUBUES thet ne 
PRIORITY List 

NAME: SEARCH MANAGEMENT INITIALIZATION ... SMM1.LIB 


This module is executed once. Its purpose is to allocate 

memory for search nodes (Table 1) and create empty request 
queues for each search and Specaae Peqlieoe hadan ye Vemm ern 

the Radar Event Priority List (Table 0). 


pragma arithcheck(off); pragma SOREN OSD 
pragma enumtab(off); pragma rangecheck(off): 
pracma arithcheck(on); oragma debug(on); 

pDracma enumtab(on); pragma rangecheck(on) ; 


PACKAGE smml IS 


PROCEDURE sm_init; 


END smml; 
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AEGIS MODELING GROUP 

DATE OF LAST UPDATE: 26 Nov 86 

NOPULE TYPE: SEARCH MANAGEMENT MODULE vers 2.0 

Peer Ooh: INL i tebiZe fae SEARCH EVENT QUEUES IN THE 
PRuOrer iy sie Sa 

NAME: SEARCH MANAGEMENT INITIALIZATION ... SMM1.PKG 


This module is executed once. Its purpose is to allocate 

memory for search nodes (Table 1) and create empty request 
eleves —TOrveach Seanen and special request radar event in 

the Radar Event Priority List (Table 


pragma arithcheck(off); pragma debug(off) ; 


pragma enumtap(oftf) ; pragma rangecheck(off); 
pragma ar:thcheck(on); pragma depug(on); _ 
oragma enumtab (on) ; oragma rangecnecix(on) ; 


moa cap0,tabl: 
PACKAGE SODY smmi [TS 


USE tabdO,tabl: 


PMOCEDURE sm_init {S 


Pe 


,aptr: SearchPtr:= NEW SearchNode; 
mealenr tr 

Mae Temi == 1s 
node ctr: INTEGER; 


a 


Ne: a o 


SEGIN 


-- traverse the Prior 
Molise (cum /= 0) 4800P 
os Ohi SS CGcrs 
(ete Sc 


i 
— 
= 


, + = ros 
mene vent. Gist 


ouemIC == Search) OR 
moles = specval request) )) THEN 


-- initialize the queue to length - max_nodes 


p:= pri_lst(ctr).que_ptr.Snode; 
node_ctr:= 0; . 
WHILE (node_ctr < pri_lst(ctr).max_nodes) LOOP 
node_ctr:= node_ctr + 1; 
q:= NEW SearchNode; 
q.info:= NEW SrchData; 
q.nxt== null; 
-- insert at the end of event queue p 
IF (p = null) THEN 


pri_ie(ctr) TOUCH LGyonode)= cq; 
ELS 
-- search for the end of the event queue 


tr:= p; 
WHILE fcUeanee /= null) Loop 


tes CDE stixt ; 
END Loop, 
-- insert the new node 


END IF; | 
Sete Drloelst(ctr) nxt: 
END LOOP; 


END sm_init; 


END smml; 


ey 


-- OWNER: AEGIS MODELING GROUP 

-- DAPE OF BAST UPDAIE: 30 Seomeso 

-- MODULE TYPE: SEARCH MANAGEMENT SUBROUTINE vers 2.0 
-- PURPOSE: FILL A PRIORPIY@EIST Seance Cumer 

-- NAME: FILL SEARCH QUBUE Giro 2. or 


-- This routine wus! respemsible fommeuiiingecmemmense 

“= event queue with the proper syncheene tse ageote os 

-- data. It executes the folteving functvon-s fomgcaem 

-- event in the priority ust) whiten correspemasmreomd 

-- Search Management event. The Fill Search Queue 

-- subroutine calculates? beam mode, Unique beamed, 

-- beam position (azimuth and elevation), instrumented 

-- range, blanking gates, the end of frame indicator, | 

-- the Radar Event Priority List (Table 0).-- and requestor identity. 


pragma arithcheck(off); pragma debug(orf); 


pragma enumtap(orf); pragma rangecheck(ort); 
@ pragma aritthcheck(on); pragma cebug{ony; 
@ pragma enumtap(on) ; oragma rangecheck(on); 


WITH tapod: 


PROCEDURE 22 ll oque( primed see eoun 
Yrayv 1S “ARRAY Cl: 2 or ese 
eLiarbay. 


Be, 
7s 
ji? 
t~ 
5 
ci 
L2G 
cr 
ry 


Bae 


nt 
a 


TYPewseamcecraA 
Si-cee: Seamc 


lquad: INTEGER; 
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OWNER: AEGIS MODELING GROUP 

DATE OF LAST UPDATE: 30 Sep 86 

MODULE TYPE: SEARCH MANAGEMENT SUBROUTINE vers 2.0 
RUREGSe: PIG 2 ePRPORITY LIST SEARCH QUEUE 

Neve Tih SHaReGH QURUE ...SMMZ.PKG 


Pits bOmeitestoumesponsible for filling a priority 

Svenu Queleevitimeune proper synchronous beam request 

ecece  limpexectitvesethe following functions for each 

Ss chiminecicmommerity list wikeh corresponds to a 
Seaeeweranagetienteevent. Ine Bill Search Queue 

subroutine calculates; beam mode, unique beam id, 

beam position (azimuth and elevation), instrumented 

mange, Dianking gates, the end of frame indicator, . 

the Radar Event Priority List (Table 0).-- and requestor identity. 


pragma arithcheck(off); pragma Seem 
pragma enumtabiorf); pragma rangecheck(off) ; 
pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on); pragma rangecheck(on) ; 


WITH global,tab0O,tabl,StrLib; 
PACKAGE BODY smm2 [5S 


Mise clobal,@ab0,tabl,Strlip: 


OWNER: AEGIS Modeling Group 

BeGeeor Gast UPDATE: 1 Oct 36 

MODUL2 TYPE: Search Management subroutine 
PURPOSEc: Caiculate beam position 

NAME: Beam Position ... SHMZA 


This subroutine calculates the beam dosition for search ‘vpe 
beams based on the calling sarameters - que identity and random 
numper, the last quadrenc from which the beam was requested 
Mees DOINter to the event node for which the beam position is 
being calculated. 


PROCEDURE bm_pos(qid:. IN QueType;rnum: IN INTEGER; quad: IN OUT INTEGER; 
p: IN OUT SearchPtr) IS 


BEGIN 
IF (quad = 1) THEN 
oe ee 3; 
ELSIF (quad = 2) THEN 


eh 4; 
ELSIF (quad = 3) THEN 
Gua ae Ze 
ELSIF (quad = 4) THEN 
oa i 
END IF; 
-- the rest of this module has not been implemented yet 


END bm_pos; 


See, 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 1 Oct 86 

MODULE TYPE: Search Management subroutine 

PURPOSE: Calculate end of frame for search type beams 
NAME: End Frame ... SMMZB 


This subroutine sets the end of frame indication flag based on 
its input parameters - beams bequest es and event identity. An 
end of search frame is indicated for the horizon search event 
after 600 beams have been scheduled. An end of search frame is 
indicated for the above horizon search after 3600 beams have 
been scheduled. 


FUNCTION end_frm(num_bms,eid: IN INTEGER) RETURN BOOLEAN IS 


BEGIN | 
IF ((eid = 9) AND (num_bms >= 600)) THEN 
RETURN true; 
ELSIF ((eid = 22) AND (num_bms >= 3600)) THEN 
RETURN true; 


SE 
RETURN false; 


i 


END |and_irm: 
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PROCEDURE fill®que(prisist: IN OUT PriLstPtr) IS 


nodes_filld: INTEGER:= 0; 

temp: ~STRING(10); 

epi p: SearchPtr:= NEW SearchNode; 
rnum: INTEGER; 


BEGIN 
Sa pcee even a status 
rnum:= rand( 
IF ((pri_lst.que_id ecial eoouest) AND 
Geaatt MO Taruoee /= 0)) 


zalse: 


Pri_lst.status: 
=LSE 
Bite st esuatus : 
ND IF; 


ia) 


it 


Cees 


ts 


Poleise. qe 4 ntr.snode.into:= NEW SrcnData; 
p.into:= NEW SrchData; 

Qper: info: = NEW SrcchData; . 

mee seo GQUCUC SG1ncer Jic avent(t boo apo lice 
Song: —= or lsc.Gue wber.snode; 


25 eons e the avent queue and ri1l1 data fields 


Se— 1p 
WHILE ee f= Au eNO ore Psc.scacus)) LOOP 
- eae ene menos CUnben OL nodesSmal tied fo maintaln unique 
so aeeoMeee. Sel enone sO event DNase ori 
Le eae 
rh Ve! — aA 


Nodece-a.la-= nodes s 
Bete neces — ol ERsens sr2; 
Soe ce enmen ole ercod2 se Oeciis beam 
Pee ucts = ay trace Ort St.sventnm,.;1); <= from Striib 
temp:= Int_to_Sstr(nedes_rilld); Sica Seg Lave) 
IF nodes_filld < 10 THEN 
temp:= Insert(''0",temp,1); 
END IF; 
peinio: wbid:= Insert(temp,p.info.bid,2); 


-- calculate beam position - 13 queue id #, 2) random #, 
-- 3) last On entered, 4) pointer p 

rnum:= ran 

bm_pos(pri_ st.que_id,rnum,lquad,p) ; 

-- calculate the instrumented range 
s-ecaictilate planking get es 

-- not implemented in this version 


-- calculate end of frame 

fe pie lst.que_id = search) THEN . 
ovens Ist.b_pri = 9) ey -- horizon search frame 
m_ctr(1):= bm ~ctr(1) +1; 

-info.eof_indic:= end ee, Str lye!) - 
ELS -- above horizon Seauen rame 

bm_ctr(2):= bm ~ctr(2) + 
jabs ag) eel eof_ indic:= end eee Girt Z) 22)? 


END IF; 

ELSE -- is special request event 
breeomroneor mcke= = false; 

END IF; 


-- assign requestor id. for this version the requestor id 
-- is assigned the value of the beam mode. 
p.info.req_id:= p.info.mode; 


-- point to the next node in the event queue 


14] 


p:= p.nxt; 
END LOOP; 


END fill_que; 
END smm2; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 29 Sep 86 

POWULE tYPR; Process vers 3.0 . 
PURPOSE: Model the Radar Scheduler function 
NAME: Detection Processing ... DRCM.LIB 


This process models the Detection Bagecssa td pEecess cor the 
purpose of modeling its interface to the Radar Scheduler process. 


pragma arithcheck(off); pragma Bee Ug OES) 7 
pragma enumtab(off) ; pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on); 

pragma enumtab(on); pragma rangecheck(on); 


PACKAGE drem IS 
PROCEDURE detectproc; 
END drcecm; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 2 Dec 86 

MODULE TYPE: Process versus. 0 

PURPOSE: Model the Radar Scheduler function 
NAME: Detection Processing ... DRCM.PKG 


This process models the Detection Proceso ag process for the 
purpose of modeling its interface to the Rada 


pragma arithcheck(off); pragma siaeprepace 
pragma enumtab(oftf); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on) ; pragma rangecheck(on) ; 


WITH global,tab7,dpml; 
PACKAGE BODY drem iS 


USE global, tab7,dpmi; 
PROCEDURE detectproc IS 
ctr,i: INTEGER; 


BEGIN | 
==— i clalise the -tiac ee 
Baie INL eC we ic) e=F5ce DEM 


SOR 1 IN ieee eesdo lait: ECOP 
awalt(ad_51d cama - 
FOR -clr iN 2.2226 260P 
ales 
END “TOOP; 
END LOOP: 
g£ND detectproc; 


END drem; 
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r Scheduler process. 





-- OWNER: AEGIS Modeling Group 

eembare OF LAST UPDAGE: 1 Oct 86 

SeeODULE DIYPE: Detection ape ces tg HOUtImewevers 2.0 
-- PURPOSE: Initialize the Track File 

-- NAME: Track File Initialization ... DPM1.LIB 


-- This module creates the Track File (table 7) used PY the test 
-- harness to provide the Radar Scheduler with viable track data. 
=- This subroutine invokes the common service routine - rand and 
-- the Detection Processing subroutine dpinend. 


pragma arithcheck(off); pragma debug(off); 


pragma enumtab(off); oragma rangecheck(off); 
@ pragma arithcheck(on); pragma debug(on) ; 
@ pragma enumtap(on); oragma rangecheck(on); 


WITH tab7; 
PACKAGE dpml IS 
Hon tab/-; 
BSCCEDURE =rigaiinic(ptrk:OUT PtrirkFile) : 


END dpmi ; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 2 Dec 86 

MODULE TYPE: Detection puoc ess aad routine vers 2.0 
PURPOSE: Initialize the Track File 

NAME: Track File Initialization ... DPM1.PKG 


This module creates the Track File (table 7) used Py the test 
harness to provide the Rada Scheduler witn vidole serackecdeas 
This subroutine invokes the common service routine - rand and 
the Detection Processing subroutine dpinend. 


pragma arithcheck (off) ; pragma seaport 
pragma enumtab(off) ; pragma rangecheck(of£); 
pragma arithcheck(on); pragma debug(on); | 
pragma enumtab(on) ; pragma rangecheck(on); 


WITH global,tab4,tapn7,domia,Longops; 


PACKAGE BODY dpml [5 


USE global, tac4,tab7,dpmla,Longops; 
PROCEDURE trkrilinit(otreegoul Pert ich) eee 


pie triekratie: 
t,},cnum: INTEGER: 


BEGIN ; 
Str =u. ; | ; 
FOR LeiN i. vA tO RE 6p Oc snl ks oor 


goec sea le (tee le we canoe 
SD: SMREW Urls 
Oo. Deamelata:— ee Daca. 

“= GMitraltce the beam data basec On a ancumenences 
cnum:= rand(); 


-- compute the mode and priority 

Je= (rnum- MOD 2275) 

IF (((j >= 4) AND (j <= 8)) OR ((j >= 14) AND (3 <= 21))) THEN 
Beye eam_data.mode:= j; 


p.beam_data.mode:= 3 + 5; 
END IF; | 
p.beam_data.priority:= p.beam_data.mode; 


a> these. ¢laqc wake scometatira ued 
Soha capcpamebed Ree iia rc) true; 
p.beam_data.sim_tgt_flg:= false; 


-- compute log amplitude estimate of echo signal 
p.beam_data.log_ampld_est:= (rnum MOD 100); 


-- compute "z" position 
-beam_data.posit.z:= (rnum MOD 1000); 
F (pu Beet Cee aS 8c < 1000) THEN 

Precanecates ow_elev_trk_flg:= true; 

ELS 

p.beam_data.low_elev_trk_flg:= false; 

END IF; 

-=- compute "x" and "y" post tans 

IF ((rnum MOD 2) = 0) THEN 

p.beam_data.posit.x:= rnum; 

rnum:= rand(); | 

Oe) a ae 0 =  Enun- 
ELS 


p.beam_data.posit.y:= rnum; 
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rnum:= rand(); | 
Dp. beamedata.posit.x:= 0 - rnum; 
END IE 


-- compute slant range 


p.beam_data.posit.sint_rnge:= Labs(Lmul(Lint(p.beam_data.posit.x), 
Lint(p.beam_data.posit.y))); 


e 
, 
e 
, 


ry 
/ 


“= compute velocity vectors 
p.beam_data.posit.x_dot:= (p.beam_data.posit.x MOD (-200 
p.beam_data.posit.y_dot:= (p.beam_data.posit.y MOD (-200 
p.beam_data.posit.z_dot:= (p.beam_data.posit.z MOD (-10) 
p.beam_data.posit.rge_dot:= | 
L_to_int(Lmod(p.beam_data.posit.slnt_rnce,Lint(-100))); 


Scots GyOss gace Din numper 
p.beam_data.xgte_bin_num:= (rnum MOD 1000); 


-- assign track numbers | 
p.beam_data.ctl_grp_trk_num:= i; 
p.beam_data.ctsl:= i + 100; 


“= compute track transition flag 

Rett Gus eN 
p.deam_data.crk_zsitn_ilag:= true; 

LSz 
2 


ti) 


.oeam_data.trk_xsitn_ctlag:= false; 
ND if: 


it) 


Semeeioe ee eee enoCe6 at rie 2nd of che Track rile 
eormend ioe sirk je -~ crom dpmla.okg 


2=ND LOOP: 
Baie crkELiinic=: 


END dpml; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 1 Oct 86 

MODULE TYPE: Detection Processing subroutine vers 2.0 
PURPOSE: Insert a node at the end of a linked list 
NAME : dpinend oes DEMPA LIE 


This subroutine has two parameters: new_node is a pointer to_the 
node which is to be inserted, list_head¥is a polnter to rhe seice 
to which the node is to be inserted at the end of. 


ragma arithcheck(off); pragma debug(off); 
Saaene me RL Baer: sets ora 
pragma arithcheck(on); pragma debug(on); 
pragma enumtab(on) ; pragma rangecheck(on) ; 


WITH tab7; 
PACKAGE dpmla IS 


USE tab7; . 
PROCEDURE dpinend(new_node,list_head: IN OUT PtrTrkFile); 


END dpmla; 
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-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 1 Oct 86 ~ . 

-- MODULE TYPE: Detection Processing subroutine vers 2.0 
Zoe Ooh iisertea roge at the end of a linked list 

-- NAME: dpinend ... DPM1A.PKG 


-- This subroutine has two parameters: new_node is a pointer to the 
Seeiegemvinich 1s tO be inserted, list_headjis a pointer to the list 
-- to which the node is to be inserted at the end of. 

pragma arithcheck(off); pragma SoC Nee); 

pragma enumtab(off); pragma rangecheck(off); 

pracma arithcheck(on); pragma debug(on) ; 
@ voragma enumtabi(on); pragma rangecheck(on) ; 
WITH tab7; 
PACKAGe BODY domla IS 

USE tab7; 


POG2OURE cpinend(new_node,list_head: IN OUT PtrTrkFile) =IS 


tpeePtrirkfite:= NEW TrkFile; 
SEGIN 
new_node.nxt_trk:= null; 


== check for an empty List 
fo erommncdge= null) Tash 
list_nead:= new_iode; 


boon 
=) S@arGnyser ehebend of the Tist 
cp:= List_head; 
Nie oe ase wee t= Null) LOOP 
Oa Me io ks 
END LOOP; 


-- insert the new node at the end of the list 
Peat S ths += new_node; 
END IF; 
END dpinend; 


END dpmla; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 3 Sep 86 

MODULE TYPE: process vers 3.0 

PURPOSE: Model the Radar Scheduler Function 

NAME: Switch Action And Display Precessing ... ARCM.LIB 


This process is_a single thread module which models the Switch 
Action And Display module on the INTELLEC[{tm] MDS system. 


pragma arithcheck(off); pragma geauo Cree 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on); 

pragma enumtab(on) ; pragma rangecheck(on); 


PACKAGE arcm IS 


PROCEDURE swtchactdgiy; 


END arcm; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 3 Oct 86 

MODULE TYPE: process vers 3.0 

PURPOSE: Model the Radar Scheduler Function 

NAME: Switch Action And Display Processing ... ARCM.PKG 


This process is_ a single thread module which models the Switch 
Action And Display module on the INTELLEC{tm] MDS system. 


pragma AS STE DISS pragma seme iote ) 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on); pragma rangecheck(on) ; 


WITH sadml,global,tab4; 
PACKAGE BODY arcecm iS 


USE sadml,global,tab4; 


PROCEDURE swtchactdply IS 
Coie: INTEGER: 
SEGIN 
oie. MemoOpetaton titemeac= module (from sadml.pkq) 
SiC om oheOCE ME ic) ke co 2.0D cOCL.MLntvis, 
MeO sep OOGeTeoLy Tech); 


eect meven® Priority List 
oie ae ER SOn g Obalsokg 


ed Sele rar ites OOP 
awalt(a_pid,ea_id,l); 
BOR seth wivi...026° LOOP 
null; 
END LOOP; 
END LOOP; 


END swtchactdply; 


END arcm; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 3 Sep 86 

MODULE TYPE: process vers 2.0 

PURPOSE: Model the Radar Schedular function 
NAME: Track Management .. TRCM.LIB 


The purpose of this module is to manage the request of track and 
missile radar events. The current design produces static data for 
the radar scheduler Test Harness. 


pragma arithcheck(off); pragma NOSE 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on) ; pragma rangecheck(on) ; 


PACKAGE trem IS 


PROCEDURE trackmogmt; 


END eren: 


ie 


OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 3 Oct 86 

MODULE TYPE: process vers 2.0 

PURPOSE: Model the Radar Schedular function 
NAME: Track Management .. TRCM.PKG 


The purpose of this module is to manage the request of track and 
missile radar events. The current design produces static data for 
the radar scheduler Test Harness. 


pragma arithcheck(off); pragma GebUEK Ore 
pragma enumtab(off); pragma rangecheck(off); 
pragma arithcheck(on); pragma debuq(on) ; 

Dragma enumtab(on); pragma rangecheck(on); 


fieeaegltobal ,CtabU,iabc,tab/s,tmml ,StrLib; 


eeeneaGe ZODY from 2S 


Meeeqiobal, -ab0,tab2,tab7,tmml,Striib; 
PROCEDURE trackmaqmt IS 


yoo LN LEGER: 


Bot@ee 25.  SeeGen: 

Cena SER ING LO), 

See wees ei B hackNode; 

GQemetririckhile:= NEW irhkbile: 
SEGINV 


Su eg eh ee | 
PO eee ee alley. LOOP 


ey teem oemeee FacanlSoD event value 
SWE tenet ee So EO ie | 
ee ease ee ACdi ew AVeNG OrlLOr. cy 21ST 


aol — 2 § 
WHILE (ppl /= 0) LOOP | 
99 (tor{_ist( ory cle = track) OR 
(ont: ppl).que_id = missile)) THEN | 
-- traverse the event queue and Track File 


se ae 1) , ; 
Bo — ora lst( pol) .que enode:: 
Ae perk: -- ptrk from global.lib 
HILE ((q /= seen) AND (p /= null) AND 
. Rode ctr < pri_lst(ppl).max_nodes)) LOOP 
-- identify this event 


IF (q.beam_data.mode = pri_lst(ppl).b_pri) THEN 
node_ctr:= node_ctr + 1; 


SeeOcemEmack node mode 
p.info.mode:= pri_lst(ppl).b_pri; 


-- set unique beam identifier 
temp:= Int_to_Str(node_ctr); 
trenode cer < 10 THEN 
temp:= Insert("0",temp,1); 
END IF; | 
pelako.bid:— Extract(pri_lst(ppl).eventnm,1,1); 
p.info.bid:= Insert(temp,p.info.bid,2) ; 


Bees jpaeki:— q; . . 
p.info.p_trk.beam_data.bid:= p.info.bid; 
pri_lst(ppl).status:= true; 


-- reset pointers 


p:= p.nxt; 
END IF; 


Los, 


= aa NX Ge eh: 
END OOP 
IF (p /= ‘null) THEN 
Dp. info. pltek:= null: 
END IF; 


END IF; 
ppl:= ies eee 


END LOOP; -- end traverse priority list 
END LOOP; == end fonwuoce 
END trackmomt; 
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OWNER: AEGIS Modeling Group 

DATE OF LAST UPDATE: 3 Sep 86 

MODULE TYPE: Track Management Module vers 2.0 

PURPOSE: Initialize track events in the Radar Event Priority List 
NAME: Track Management Initialize .. TMM1.LIB 


The Pu Oe of this module is to allocate memory for track nodes 

(table 2) and create SHbey request queue. for each search and 

special request event in the Radar Event Priority List (table 0). 
ragma arithcheck(off); pragma debug(off); 

Sasi Sree pragma Per aoe eel (of e) 

pragma arithcheck(on); pragma debug(on) ; 

pragma enumtab(on) ; pragma rangecheck(on) ; 


ACKAGe tmmli [5 


PROCEDURE tm_init; 


END tmml; 


[D5 


-- OWNER: AEGIS Modeling Group 

-- DATE OF LAST UPDATE: 830) Nov sec 

-- MODULE TYPE: Track Managernent Mecuiome ven 

-- PURPOSE: Initialize track events in the Radar Event Priority List 
-- NAME: Track Management fnveraeiZe eg eereG 


= eye PEBposs of this module is to allocate memory for track nodes 
-- (table 2) and create ene a uest queues for each search and 
e 


-- special request event in adar Event Priority List (table 0). 
pragma arithcheck(off); pragma debug(off); 
pragma enumtab(off) ; pragma Soe ay 

@ pragma arithcheck(on); pragma debug(on); 

@ pragma enumtab(on) ; pragma rangecheck(on) ; 


WITH tabU, tabZ, tab7: 

PACKAGE BODY tmml IS 
USE tab0Q,tap2,tab7; 
PROCEDURE tm_init IS 


} 
G 
ct 
r 
oO 
4 
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SEGIN 
“= traverse? the Sadar 2vent oy ieorie. otce 
WHILE (ppl /= 0) LOOP 
TP ((prac st( pod fauesse ar acia mer 
(Ort _1Lstiopl). que tds= miss.) ere 
p:= pri_lst(ppl).que_ptr.Tnode; 
node_ctr:= 0; 
WHILE (node_ctr < pri_lst(ppl).max_nodes) LOOP 
node_ctr:= node_ctr +1; 
q:= NEW TrackNode; . 
q.info.p_trk:= NEW TrkFile; 
q.info.p_trk.beam_data:= NEW TrkData; 
q.nxt:= null; 
-- insert node at end of event queue 
IF (p = null) THEN 
p:= oi 
ri_Ist(ppl).que_ptr.Tnode:= q; 
ELSE 
| 2 5 
ILE (pity nxte, —snull) eLoer 
Ga:— GUpere anc 
END LOOP; 
tr.nxt:= q; 
END IF; 
END LOOP; 
END IF; | 
ppl:= pri_lst(ppl).nxt; 
END LOOP; 
END tm_init; 
END tmml; 
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APPENDIX E 
SAMPLE RADAR SCHEDULER OUTPUT 


KERR KKKKKKRKKKRRKRRKKRRR RRR RK KKK KAR RK RKRKKRRRRKKKKKKRKKKK 
KEEKKAKKKKKAKKE AEGIS AN/SPY-1A KRARAEKKKKKKKKKKXK 


KAEAKKRKKKKKKKKKK RADAR SCHEDULER PROGRAM RAKRKKRKKKKKKRE 


Mgeeruccions co the Operator: 
Bee che mumber of “racks &o be initialised: 
NOME EA Ort Reo -> ==> 0 
Input the number of scheduling intervals to be run: 
(Wiese kobe NlERVvALS =--=>ao0 
er 


ae ~ 
LOG 


Define interval displav delay 


= 


eo 
Pic Pe WA ERVALS <---> 20 


SEGiW 2A CULION 


Completed interval: i0 
Completed interval: 20 
Segemeceda interval: 30 
Semereted incverval: 40 
Sageeerea interval: 50 
See ced interval: 30 
Completed interval: 70 
Completed interval: 80 
Completed interval: 90 
Completed interval: 100 


ul 


REQUESTED BEAMS FOR SCHEDULER INTERVAL: 10 
A-EVENT - ECM BURNTHROUGH 
NO REQUESTS THiS INTERVAL 
B-EVENT = TARGET Von hineiion 
NO REQUESTS THIS INTERVAL 
C-EVENT = SPECTARS Pes 
NO REQUESTS THIS INTERVAL 
G-EVENT - HIGH PRI GREGK TRANSETION 
BEAM ID GO1l G02 G03 G04 G05 
SUEUGE Ost th i Z 3 4 S 
T=BVBME - GORLSZCHSSeaRCH 
BEAM ID FOL. £02 103 [04 TOS f06u00/ eiO cee eee 
QUEUES Ostet i 2 2 - 5 9 7 3 ie, 
Fee VENT et RE eeNGa Gebers ere An Ge a 
BEAM 1D _ : 
QUEUES Zest. S 4 5 


2-RVENT)- OWN Si=2eHISStme GUIDANS 


3EAM ID 201 £02 
QUEUE 2OSIT i: 
J-2VENT - ENGAGED HOSTILE TARGET 
2EAM ID O01 DO2 DO3 D004 DOS 
QUEUE 2OSiIT lo. 2 See 


H-VENT - HIGH 2RI TRACK CONFIRMATION 
3EAM ID 401 402 
QUEUE POSIT Lae 
S-2VENT - SPECIAL ICM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
K-EVENT - SPECIAL TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
L-EVENT - SPECIAL MANUAL SCAN 

NO REQUESTS THIS INTERVAL 
M-EVENT - SPECIAL TARGET ACQUISITION 

NO REQUESTS THIS INTERVAL 


N-EVENT - CONFIRMED HOSTILE TRACK 


eS 


BEAM ID NOl NO2 NO3 NO4 
QUEUE POSIT i (2 ea 
O-EVENT - ASSUMED HOSTILE TRACK 
BEAM ID 001 002 003 004 005 
QUEUE POSIT 1 2: Sueeaes 5 
P-EVENT - UNEVALUATED TRACK 

BEAM ID POl PO2 

QUEUE POSIT inne? 

Q-EVENT - CONTROLLED FRIENDLY TRACK 
BEAM ID 001 002 903 904 
QUEUE POSIT ey aA 


V-EVENT - ABOVE HORIZON SEARCH 
BEAM ID VOl VO2 VO3 V04 VO5 VO6 VO7 VO8 VO9 V10 
QUEUE POSIT 1 2 3 4 5 6 7 8 9 10 
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R-EVENT - TRACK CONFIRMATION 


BEAM ID RO] RO2Z RO3 RO4 ROS 
QUEUE POSIT 1) a Rs Lae 
S-EVENT - TRACK TRANSITION 

BEAM ID SOl 

QUEUE POSIT 1 

T-EVENT - ASSUMED FRIENDLY TRACK 
BEAM ID TO1l 

QUEUE POSIT 1 

U-EVENT - CONFIRMED FRIENDLY TRACK 
BEAM ID UO1l U02 

QUEUE POSIT l 

W-EVENT - SPECIAL ABOVE HORIZON SZARCH 
BEAM ID WO1l WO2 WO3 WO4 WO5 WO6 
QUEUE POSIT Po ese 5G 


=e aeEegeaee was = ws SB ese ageee ee as SB ase BP eS est ewe SF se Se ees Se ase SP ease Ss Ss ase es eae aes Be Ss SB eS Se SS Ss es =e 


S=EvENT - SIMULATION DWELL 

NO REQUESTS THIS INTERVAL 
Ween ENT - DIAGNOSTIC DWELL 

NO RBCUES TS eetls INTERVAL 
BeoveNt - DUMMY DOWELL 

NOSRBOURSTS (AIS INTERVAL 


SeeeoUreD DWELLS OR SCHEDULER INTERVAL: 10 

Sear iD GOL G02 G03 G04 GOS [01 [02 £03 104 195 
BE SOURCES Pema ioee oo eo oS oc Soe 56a se 
DWELL = L Z Z 4 : S i S ee, 
BEAM ID POceTOs/T1OG 10S 210 Tl) FOl FOZ FO3 FO4 
RESOURCES 47 44 41 38 35 32 25 18 11 4 
DWELL # Maeeceeoeetoneto’ 16 17 ale igeeZzo 
BEAM ID Vol 

RESOURCES 1 

DWELL # ZA 


aanwneeeee@ ee ee Bae eet se swe aww ew este ete eee eee et este ese eee et ete et eee eee ete aes SS ae Ss es a = 


aas@eEeeee we ee et eee ee ee ee ws ws eens es weeee ete ese ee ete eee eee et ee ee ae ee ee we aw aw ae we a se ae = 
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REQUESTED BEAMS FOR SCHEDULER INTERVAL: 20 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
B-EVENT - TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
C=EVENT - SPECTARS ies. 

NO REQUESTS THIS INTERVAL 


F-EVENT - PRE-ENGAGED HOSTILE TARGET 


BEAM ID FOl FO2 FO3 F04 FOS 
QUEUE POSIT ie" eees 4 8 5 
E-EVENT - OWN SM-2 MISSILE GUIDANCE 
BEAM ID ZOl Z02 

QUEUE POSIT ee 

I-EVENT - HORIZON SEARCH 

BEAM ID IO01 I02 I03 104 105 I06 I07 I08 I09 I10 
QUEUE POSIT 1 2° 3 4° 5 6 7% 6 Sime 
P-EVENT - UNEVALUATED TRACK 

3EAM ID 201 202 

QUEUE POSIT iwGe 

Q-EVENT - CONTROLLED FRIENDLY TRACK 
3EAM ID QO1 902 903 904 

QUEUE POSIT i 2 See 
R-EVENT - TRACK CONFIRMATION 

BEAM ID R01 RO2Z 203 204 205 
QUEUE POSIT 1 2 305 
S-EVENT - TRACK TRANSITION 

BEAM ID S0l 

QUEUE POSIT i! 

T-EVENT - ASSUMED FRIENDLY TRACK 
BEAM ID TOl 

QUEUE POSIT 1 

U-EVENT - CONFIRMED FRIENDLY TRACK 
BEAM ID UO] U02 

QUEUE POSIT i 2 

D-EVENT - ENGAGED HOSTILE TARGET 
BEAM ID DOl DO2 DO3 DO4 DOS 
QUEUE POSIT 2) 30s 
O-EVENT - ASSUMED HOSTILE TRACK 
BEAM ID 001 002 003 004 005 
QUEUE POSIT tae Se aes 
N-EVENT - CONFIRMED HOSTILE TRACK 
BEAM ID NO1l NO2 NO3 NO4 

QUEUE POSIT 2 og2 3 ee 
H-EVENT - HIGH PRI TRACK CONFIRMATION 
BEAM ID HO1l HO2 

QUEUE POSIT tae 2 

G-EVENT - HIGH PRI TRACK TRANSITION 
BEAM ID GO1l G02 G03 G04 GOS 
QUEUE POSIT 1° 2) 3° 4° 45s 
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V-EVENT - ABOVE HORIZON SEARCH 
BEAM ID VOl VO2 VO3 VO4 VO5 V06 VO7 VO8 VO9 V10 
QUEUE POSIT 1 2 3 4 5 6 7 8 9 10 
J-EVENT - SPECIAL ECM BURNTHROUGH 
NO REQUESTS THIS INTERVAL 
K-EVENT - SPECIAL TARGET DEFINITION 
NO REQUESTS THIS INTERVAL 
L-EVENT - SPECIAL MANUAL SCAN 
NO REQUESTS THIS INTERVAL 
M-EVENT - SPECIAL TARGET ACQUISITION 
NO REQUESTS THIS INTERVAL 


Sie PNT - SPECIAL ABOVE HORIZON SEARCH 


BEAM ID WOl WOZ WO2 WO4 WOS we 
eumer POSit i pa E - 5 


MeeeeNy - StMULATION DWELL 

NO REQUESTS THIS INTzZRVAL 
peevent - DIAGNOSTIC DWELL 

MOSeBQUESIS HESS INTERVAL 
Seeweiil = DUMMY OWELL 

WO REQUESTS THISs({WTERVAL 


mBRemeeewFwFwageeeaGgaeaew=:q@qwase—sT'' = Sw qqesqu»’u=» s,s cT7 e737." @&ww aes" az qa = = 3 =  —]—= wen w= SS = 8 3 8 8 3 8 8 ee 2 2 ee le 


pereeuer® DWELLS rOR’ SCHEDULER INIERVAL: 20 

BEAM <D i eee om OG Foo EOiea02 20 102-193 
SeeOURCES 55 Mes (WES Twn” ie cowe! ie site Se eZ 
DWELL = - 2 3 4 5 | 7 2 a. LO 
Boalt iD Oeeees eo E07 206 109 flO i111 POl PO2 
RESOURCES Semoomeso  wO2/ 24 2) ats. ii +: 
DWELL # ieee tote iS) 16 17 Paler 19 920 
BEAM ID VOl 

RESOURCES i 

DWELL # fog 
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REQUESTED BEAMS FOR SCHEDULER INTERVAL: 30 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
B-EVENT - TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
C-EVENT =- SPECIAL es 

NO REQUESTS THIS INTERVAL 


F=EVENT - PRE-ENGAGED OST Ila] TARGET 


BEAM ID FOL FO2 FO3 FO4 FOS 
QUEUE POSIT Ly 2 goes 
S-EVENT - OWN SM-2 MISSILZ GUIDANCE 
SEAM ID Z01 202 

QUEUE POSIT hee 


D-SVENT - ENGAGED HOSTILE 2ankGar 


BEAM ID DOL DOZ DO3 DO4 DOS 

QUEUE POSIT Tee. 3) we oS 

H-EVENT - HIGH 2RI TRACK CONFIRMATION 

SEAM <D 401 402 

QUEUE POSIT eee! 

J-EVENT - CONFIRMED FRIENDLY TRACK 

BEAM iD JO 02 

QUEUE POSIT eee 

I-EVENT - HORIZON SEARCH 

BEAM ID “01 I02 102 204 205 f06 f07 t08°109 710 
QUEUE 20SIT 1 2° 3 2% 38 5 7 ae cele 
S-2VENT - TRACK TRANSITION 

BEAM ID 501 

QUEUE POSIT 1 

T-EVENT - ASSUMED FRIENDLY TRACK 

BEAM ID TO1 

QUEUE POSIT 1 

R-EVENT - TRACK CONFIRMATION 

BEAM ID RO1 RO2 RO3 RO4 ROS 

QUEUE POSIT 1 2 3 4 § 

G-EVENT - HIGH PRI TRACK TRANSITION 

BEAM ID GOl G02 GO3 G04 GOS 

QUEUE POSIT i, 2 3, Ae 5 

Q-EVENT - CONTROLLED FRIENDLY TRACK 

BEAM ID Q01 902 903 904 

QUEUE POSIT 2 eed 

P-EVENT - UNEVALUATED TRACK 

BEAM ID PO1 PO2 

QUEUE POSIT ie? 

O-EVENT - ASSUMED HOSTILE TRACK 

BEAM ID 001 002 003 004 005 

QUEUE POSIT ta22 93 4s 

V-EVENT - ABOVE HORIZON SEARCH 

BEAM ID VOl VO2 VO3 V04 VO5 VO6 VO7 VO8 VOS V10 
QUEUE POSIT 1 2 3 #4 65 6 7 {ay aomedo 
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N-EVENT - CONFIRMED HOSTILE TRACK 
BEAM ID NOl NO2 NO3 NO4 
QUEUE POSIT 2 “3 4 


SPECIAL ECM BURNTHROUGH 


NO REQUESTS 


SPECIAL TARGET 
NO REQUESTS 


SPECIAL MANUAL 


THIS INTERVAL 


DEPINI TION 
THIS INTERVAL 


SCAN 


NO REQUESTS THIS INTERVAL 
SPECIAL TARGET ACQUISITION 
NO REQUESTS THIS INTERVAL 
W-EVENT - SPECIAL ABOVE HORIZON SEARCH 
BEAM iD WO1 WO2 WO3 WO4 WO5 WO6 
QUEUE POSIT in laetmer ae 5. 6 


X°EVENT - SIMULATION DWELL 


NG@REQUms tS iHis. INTERVAL 
feereeNT - DIAGNOSTIC DOWELL 
NOs 2OURSeS THIS zNTERVAL 
Zee ENT - DUMMY JWELL 
N@wABOURSTSSsoIS INTERVAL 
SCHEDULED DWEL 2OR SCHEDULER “INTERVAL S50 
BEAM iD pole 02 eh OS 204705) 201. OZ DOL DMOZ O03 
SeSOURCES 2o@eco?- 8 20eo>. 56 Si 44 37 Se 
DWELL = it iS 3 + 5 3 r 3 J ad) 
BEAM ID DO4 DOS5 HOl HOZ2 
BReSOURCES Zoe 2; Z 
DWELL # DieerZ. 13° 24 
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REQUESTED BEAMS FOR SCHEDULER t)itern AL. 40 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
B-EVENT - TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
C-EVENT - SPECIADMGe oe 

NO REQUESTS THIS INTERVAL 


E=EVENT - OWN SMS>Z Missi ee scurpaiice 


BEAM ID E01 E02 

QUEUE POSIT i B17 

I-EVENT - HORIZON SEARCH 

BEAM ID 101 I02 I03 104 105 I06 I07 I08 109 110 
QUEUE POSIT 1 2 3 4 5 (6) os qeomeomala 
‘D-EVENT - ENGAGED HOSTILE TARGET 

BEAM ID DO1 DO2 DO3 DO4 DOS 

QUEUE POSIT i ° 2 So aeeees 

H-ZVENT - HIGH PRI TRACK CONFIRMATION 

3EAM ID 4O1 02 

QUEUE 2OSIT 1 2 


G-EVENT - HIGH 2RI TRACK TRANSITION 
BEAM ID GO1l GOZ GO3 G04 GOS 
QUEUE 20SIT 1. 2° 3 aes 


Usa VENT = CONE ERMED see ee aes 


BEAM ID uOl voz 

QUEUE 20SiT 1 2 

F-EVENT - PRE-ZNGAGED HOSTILE TARGET 
BEAM ID FOl FO2 FO3 F04 #05 
QUEUE POSIT 1 2 3 4 =§ 
S-EVENT - TRACK TRANSITION 

BEAM ID Sol 

QUEUE POSIT 1 

T-EVENT - ASSUMED FRIENDLY TRACK 
BEAM ID TO1 

QUEUE POSIT 1 

R-EVENT - TRACK CONFIRMATION 

BEAM ID RO1 ROZ RO3 RO4 ROS 
QUEUE POSIT f 20° 8 aes 
Q-EVENT - CONTROLLED FRIENDLY TRACK 
BEAM ID Q01 902 903 904 

QUEUE POSIT ee 2: este 


P-EVENT - UNEVALUATED TRACK 


BEAM ID PO1 P02 

QUEUE POSIT 1 

O-EVENT - ASSUMED HOSTILE TRACK 

BEAM ID 001 002 003 004 005 

QUEUE POSIT ae ne ae 

V-EVENT - ABOVE HORIZON SEARCH 

BEAM ID VOl VO2 VO3 VO4 VO5 VO6 VO7 VO8 VO9 V10 
QUEUE POSIT 1 2 3 4 % 6 7 “So oeto 
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N-EVENT - CONFIRMED HOSTILE TRACK 
BEAM ID NOl NO2 NO3 NO4 
QUEUE POSIT ioe 2 4 
J-EVENT - SPECIAL ECM BURNTHROUGH 
NO REQUESTS THIS INTERVAL 
K-EVENT - SPECIAL TARGET DEFINITION 
NO REQUESTS THIS INTERVAL 
L-EVENT - SPECIAL MANUAL SCAN 
NO REQUESTS THIS INTERVAL 
M-EVENT - SPECIAL TARGET ACQUISITION 
_ NO REQUESTS THiS INTERVAL 
WeEVENT - SPECIAL ABOVE HORIZON SEARCH 
BEAM ID OL WO2 WO3 WO4 WOS WO6 
QUEUE POSIT lee ee nn A 
X-EVENT - SIMULATION DWELL 
NO REQUESTS THIS INTERVAL 
Y-EVENT - DIAGNOSTIC DWELL 
NO- 2EQUESTS THIS INTERVAL 
Z-EVENT - DUMMY OWELL 
NO REQUESTS THIS 


owe Geew@@eew @weitiwewaeaeFeaet saws est st aeeaws eet Zt a eee ws est SB eee st eI ee sZ eet ws eet Sse BI eet Se ee see VBI ee Ss ae Ss ee se ee 


n 
it 
3 
res] 
my 
< 
fe 
ro 


BeemebULED DWELLS sOR SCHEDULER INTERVAL: 40) 


Beer LD e0t OZ (Ol 202 £03 £04 £05 206 107 108 
BEOUURCES eee oo SO eee 72 71. 56) BS) BZ 
DWELL = r Z S 4 S 45 7 a) ao 
BEAM ID Poe sue DU pO c DOS Bes D0> HOL HGZ 
BesguRCES So Moo oS 46"e59 S32 25 18 i 
DWELL # i eee oS 14 tS es CUS CES. COZ 
BEAM ID MORE 

ReSoURCES 1 

DWELL # adl 
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REQUESTED BEAMS FOR SCHEDUEER INTERVAL: a1) 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
B-EVENT - TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
C-EVENT - SPECIALS IES 

NO REQUESTS THIS INTERVAL 


D-EVENT - ENGAGED HOSTILE TARGET 


BEAM ID DO1 DO2 DO3 DO4 DOS 
QUEUE ?OSIT eo a a eS 
H-ZVENT - HIGH 2RI TRACK CONFIRMATION 
3EAM ID 4O1l 302 

QUEUE POSIT L 2 

[-ZVENT - HORIZON SZARCH 

BEAM ID TOl 102 I03 104 I05 106 I07 I08 109 110 
QUEUE POSIT 1 2 3 @ 95 “Shee? 3 ace 
Q-ZVENT - ASSUMED HOSTILE TRACK 

SEAM ID 001 002 003 004 005 
QUEUE POSIT 1  2y 3 ees 
JeEVENT ~ HIGH 2RI TRACK TRANSITION 
3EAM ID GOt GO? Goemegtncos 
JUEUE 2OSIT . ae 3 Mee? 65 
P-EVENT - UNEVALUATED TRACY 

BEAM ID 201 202 

QUEUE POSIT L ¢e2 

FeEVENT - 2RE-ENGAGED JOSTILE TARGET 
BEAM iD FOL FO2 703 FO4 FOS 
QUEUE POSIT 1 2 3 4 #5 
Q-EVENT - CONTROLLED FRIENDLY TRACK 
BEAM ID Q01 902 903 904 

QUEUE POSIT Mee emeecrs 


N-EVENT - CONFIRMED HOSTILE TRACK 


BEAM ID NO1l NO2 NO3 NO4 

QUEUE POSIT cane 3 seed 

E-EVENT - OWN SM-2 MISSILE GUIDANCE 

BEAM ID EO1 E02 

QUEUE POSIT 1 

U-EVENT - CONFIRMED FRIENDLY TRACK 

BEAM ID U0l U02 

QUEUE POSIT 1 

S-EVENT - TRACK TRANSITION 

BEAM ID SO 

QUEUE POSIT 1 

T-EVENT - ASSUMED FRIENDLY TRACK 

BEAM ID nol 

QUEUE POSIT 1 

V-EVENT - ABOVE HORIZON SEARCH 

BEAM ID VOl VO2 VO3 V04 VO5 VO6 VO7 VO8 VO9 V10 
QUEUE POSIT 1 2 3 4 5 “6 7 “85 aio 
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R-EVENT - TRACK CONFIRMATION 
BEAM ID ROl RO2 RO3 RO4 ROS 
QUEUE POSIT 1 2 3 4 5 
J-EVENT - SPECIAL ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
K-EVENT - SPECIAL TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
L-EVENT - SPECIAL MANUAL SCAN 

NO REQUESTS THIS INTERVAL 
M-EVENT - SPECIAL TARGET ACQUISITION 

NO REQUESTS THIS INTERVAL 
W-EVENT - SPECIAL ASOVE HORIZON SEARCH 
BEAM ID WOl WOZ2 WO3 WO4 WO5 WO6 
QUEUE POSIT oe See ae 65 
X-EVENT - SIMULATION DWELL 

NO REQUESTS THIS INTERVAL 
Y-EVENT - DIAGNOSTIC DWELL 

NO REQUESTS THIS INTERVAL 
Z-"EVENT - DUMMY DOWELL 

NO REQUESTS THIS INTERVAL 


S@eeeULED DWELLS OR SCHEDULER INTERVAL: 50 

SEAM iD OG 882 002*004 205 A0l 802 101 102 COs 
SeoOURCES So eeeoe) Joo e255 58 51 46 45 AZ 
DOWELL F : 2 4 5 = 7 3 3 6G 
BEAM ID Ot 205 T@e 107 Fes 109 ITkO I1i O01 002 
RESOURCES oo @o ss 30° 27 24 21.18 it 4 
DWELL # Miveeme 56 14° 25 216) tees. “195520 
BEAM ID VOl 

RESOURCES 1 

DWELL # ou 
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REQUESTED BEAMS FOR SCHEDULER INTERVeL. 60 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
B-EVENT - TARGET DERINETLO 

NO REQUESTS THIS INTERVAL 
C-EVENT - SPECIAL TEST 

NO REQUESTS THIS INTERVAL 


H-EVENT - HIGH PRI TRACK CONFIRMATION 
HO1l HO2 


BEAM ID 

QUEUE POSIT 1 

G-EVENT - HIGH PRI TRACK TRANSITION 

BEAM ID GO1l G02 GO3 G04 GO5 

QUEUE POSIT i 3, AS 

I-EVENT - HORIZON SEARCH 

BEAM ID IO1 I02 I03 104 I05 106 I07 I08 I09 I10 
QUEUE POSIT 1 2 3 4 #5 Gueeteoes 9 Omg 
Q-EVENT - CONTROLLED FRIENDLY TRACK 

SEAM iD 901 902 903 204 

3UEUE 20SIT tL 2 ee 

R-EVENT ~ TRACK CONFIRMATION 

SEAM ID ROL 202 203 204 205 

QUEUE 20SiT i 62 3S As 

$-ZVENT - TRACK TRANSITION 

3EAM ID sol 

QUEUE 2OSIT : 


r-VENT - ASSUMED FRIENDLY TRACK 
BEAM ID TOl 
OUEUE POSIT i! 


F-EVENT - PRE-ENGAGED HOSTILE TARGET 


BEAM ID FOl FO2 FO3 FO4 FOS 

QUEUE POSIT io? seamed 

E-EVENT - OWN SM-2 MISSILE GUIDANCE 

BEAM ID E01 E02 

QUEUE POSIT 1 

D-EVENT - ENGAGED HOSTILE TARGET 

BEAM ID DO1 DO2 DO3 DO4 DOS 

QUEUE POSIT ieee 3 4.95 

P-EVENT - UNEVALUATED TRACK 

BEAM ID POl PO2 

QUEUE POSIT ie 

O-EVENT - ASSUMED HOSTILE TRACK 

BEAM ID 001 002 003 004 005 

QUEUE POSIT ine 3 4 es 

N-EVENT - CONFIRMED HOSTILE TRACK 

BEAM ID NO1l NO2 NO3 NO4 

QUEUE POSIT ge eg aa. 

V-EVENT - ABOVE HORIZON SEARCH 

BEAM ID VOl VO2 VO3 VO4 VO5 VO6 VO7 VO8 VO9 V10 
QUEUE POSIT to ss es GG Cea 
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U-EVENT - CONFIRMED FRIENDLY TRACK 
BEAM ID UOl U02 
QUEUE POSIT ens 
J-EVENT - SPECIAL ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
K-EVENT - SPECIAL TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
L-EVENT - SPECIAL MANUAL SCAN 

NO REQUESTS THIS INTERVAL 
M-EVENT - SPECIAL TARGET ACQUISITION 

NO REQUESTS THIS INTERVAL 
W-SVENT - SPECIAL ABOVE HORIZON SEARCH 
BEAM ID WOl WO2 WO3 WO4 O05 WO6 
QUEUE 2OSIT ieee se SG 
X-EVENT - SIMULATION DWELL 

NO REQUESTS THIS INTERVAL 
Y-EVENT - DIAGNOSTIC DWELL 

NO REQUESTS THIS INTERVAL 
Z-SVENT - DUMMY DWELL 

NO REQUESTS THIS INTERVAL 


CN 


SCHEDULED DWELLS FOR SCHEDULER INTERVAL: 50 
3EAM 7D HO OPS OlmecOresOSeedaeGOS 201 102.003 
RESOURCES i> fe 72> 7 cs) se 51 48 #45 42 
DWELL $ eo eee Gb CT BUCO LO 
BEAM ID 104 I05 106 197 208 109 i10 I11 901 902 
RESOURCES Bomese 923° 930 27 «#24 21 418 “11 4 
DWELL # 11 12 13 14 15 16 17 #18 19 20 
BEAM ID vol 

RESOURCES 1 

DWELL # 21 
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REQUESTED BEAMS FOR SCHEDULER INTERVAL: 70 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
B-EVENT - TARGET DEFINIZEON 

NO REQUESTS THIS INTERVAL 
C-EVENT - SPEGIALSIEST 

NO REQUESTS THIS INTERVAL 


D-EVENT - ENGAGED HOSTILE TARGET 


BEAM ID DO1l DO2 DO3 DO4 DOS 

QUEUE POSIT eo ei eee 

H-EVENT - HIGH PRI TRACK CONFIRMATION 

BEAM ID HO1 HO2 

JUEUE POSIT eee 

G-EVENT - HIGH PRI TRACK TRANSITION 

BEAM ID GOl GOg Gos coaecus 

QUEUE POSIT i 2 Bee 

F-ZVENT - DRE-ENGAGED HOSTILE TARGET 

3EAM <D FOL 702 793 704 705 

QUEUE 2OSIT 1 2 2 ME 5 

Z-EVENT - OWN SM-2 MISSILE GUIDANCE 

3EAM ID zO1l 202 

JUEUE POSIT Wie 

I-EVENT - HORIZON SEARCH 

3EAM ID fOl £02 703 204 105 “oe 07 208 209 zi 
QUEUE 20SIT | 26 2G Foe ee ee 
S-EVENT - TRACK TRANSITION 

BEAM iD 50 


als ot SOL 
QUEUE POSIT 1 


U-EVENT - CONFIRMED FRIENDLY TRACK 
UO1 U02 


BEAM ID 

QUEUE POSIT i 

T-EVENT - ASSUMED FRIENDLY TRACK 
BEAM ID TO1 

QUEUE POSIT i 

R-EVENT - TRACK CONFIRMATION 

BEAM ID RO1 RO2 RO3 RO4 ROS 
QUEUE POSIT i253. 4 
Q-EVENT - CONTROLLED FRIENDLY TRACK 
BEAM ID 001 902 903 904 
QUEUE POSIT Ty eye pec 


P-EVENT - UNEVALUATED TRACK 


BEAM ID PO1 PO2 

QUEUE POSIT Lg 

O-EVENT - ASSUMED HOSTILE TRACK 
BEAM ID 001 002 003 004 005 
QUEUE POSIT 1 2 3 4 #5 
N-EVENT - CONFIRMED HOSTILE TRACK 
BEAM ID NO1 NO2 NO3 NO4 
QUEUE POSIT 1 2 3 4 
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V-EVENT - ABOVE HORIZON SEARCH 
BEAM ID VOl VO2 VO3 VO4 VO5 V06 VO7 VO8 VO9 Vv10 
QUEUE POSIT fees a.) 656 UG 6B. 9 «C10 
J-EVENT - SPECIAL ECM BURNTHROUGH 
NO REQUESTS THIS INTERVAL 
K-EVENT - SPECIAL TARGET DEFINITION 
NO REQUESTS THIS INTERVAL 
L-EVENT - SPECIAL MANUAL SCAN 
NO REQUESTS THIS INTERVAL 
M-EVENT - SPECIAL TARGET ACQUISITION 
NO REQUESTS THIS INTERVAL 
W-EVENT - SPECIAL ABOVE HORIZON SEARCH 
BEAM ID WOL WO2 WO3 WO4 WOS WO6 
QUEUE POSIT Ponomes 4. 5 6 
K-EVENT - SIMULATION DWELL 
NO REQUESTS THIS INTERVAL 
Y-EVENT - DIAGNOSTIC DWELL 
NO REQUESTS THIS INTERVAL 
Z-ZVENT - DUMMY DWELL 
NO REQUESTS THIS INTERVAL 


SeeeeULED DWELLS FOR SCHEDULER INTERVAL: 70 


BEAM ID DOL DO2 DOS DO4 DOS5 HO1l HO2 G01 G02 G03 
SeSOURCES Pomc omie | Gzomes 56° Sl “44 37 30 
DWELL # i 2 S 1 S s) 7 8 See 
BEAM ID GO4 GO5 FOl F02 
RESOURCES Ze 6 2 Z 
DWELL # et 2-13. 14 


gareagFefeeee ee eee eae eee ete ee ae ee et eee Stee ese Sst aes ese eee ea ees eet a at at a a a 


geEa@ee@eeeeeeetaeae eee 2 2 ee ee es es es es eee eee 2 e222 822 2 = SB es SB es es es eS ae & = = = = 
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REQUESTED BEAMS FOR SCHEDULER INTERVAL: 80 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
BeEVENT - TARGE?D DEPUNIIAo 

NO REQUESTS THIS INTERVAL 
C-EVENT - SPEGIAD Bie am 

NO REQUESTS THIS INTERVAL 


G-EVENT - HIGH PRI) TRACK TRANS? eo) 


BEAM ID GO1l G02 G03 G04 G05 
QUEUE POSIT 1: | 2S aes es 
F-EVENT - PRE-ENGAGED HOSTILE TARGET 
BEAM ID 701 FO2 FO03 FO4 FOS 
QUEUE POSIT i 2 3 Nes 
E-EVENT - OWN SM-2 MISSILE GUIDANC2 
BEAM ID =01 E02 

QUEUE POSIT 1 2 

D-EVENT - ENGAGED HOSTILE TARGET 

SEAM iD 001 DO2 DOZ 304 505 
QUEUE 20SiT tL . 2 ova, Saas 
Ne-EVENT - CONFIRMED HOSTILZ TRACK 
SEAM ID NO1 NO2 NO3 No4 

QUEUE POSIT f° 2. ae 

I-EVENT - HORIZON SEARCH 

SEAM [ID i01 £02 i103 fo4 I05 106 t07 r08 209 i10 
QUEUE POSIT 1/2) 3° 4 sis 0 7 wep = we0 
0-EVENT - ASSUMED HOSTILE TRACK 

BEAM ID O01 002 003 004 005 
QUEUE POSIT 1 2 3 4 +5 
H-EVENT - HIGH PRI TRACK CONFIRMATION 
BEAM ID HOl HO2 

QUEUE POSIT 1 

U-EVENT - CONFIRMED FRIENDLY TRACK 
BEAM ID U01l U02 

QUEUE POSIT 1 

P-EVENT - UNEVALUATED TRACK 

BEAM ID PO1l PO2 

QUEUE POSIT i 

S-EVENT - TRACK TRANSITION 

BEAM ID S01 

QUEUE POSIT 1 

T-EVENT - ASSUMED FRIENDLY TRACK 

BEAM ID TOL 

QUEUE POSIT 1 

V-EVENT - ABOVE HORIZON SEARCH 

BEAM ID VOl VO2 VO3 V04 VO5 VO6 VO7 VO8 VO9 V10 
QUEUE POSIT 1 2 3 4 5 6 7 8 9 10 
R-EVENT - TRACK CONFIRMATION 

BEAM ID RO1 RO2 RO3 RO4 ROS 
QUEUE POSIT jee ea oy dee 5 
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Q-EVENT - CONTROLLED FRIENDLY TRACK 
BEAM ID 001 902 903 904 
QUEUE POSIT Ly i ae 
J-EVENT - SPECIAL ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
K-EVENT - SPECIAL TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
L-EVENT - SPECIAL MANUAL SCAN 

NO REQUESTS THIS INTERVAL 
M-EVENT - SPECIAL TARGET ACQUISITION 

NO REQUESTS THIS INTERVAL 


Meee l - SPECIAL ABOVE HORIZON SESRCH 


SEAM =D WOL WOZ WO3 WO4 WO5 WO6 
OUrun, FOSiT LZ Z S = 5 6) 


PeeveN? - SiMULATION DWELL 

NO REQUESTS [THIS INTERVate 
feeveee - OLAGNOSTIC DWELL 

NO@EDOUGSTs tHrSeINTERVAL 
SeeveNl - DUMMY DWELL 

NOSREQUESES -hlSerigekVaL 


aaseaeaeeeeeee ee este ese ase ae ese es ae eae ese SBF ee eee SB est eee eet ew ll ae eee UR leew ll ree lc re ll rel er ler lee eee ere leew Uae ee eee ee ee ee le 


SeeePUEED DWELLS cOR SCHEDULZR INTERVAL: 30 

BEAM =D SOI s02 es eces ee 01 702.803 £04, 705 
gesOURCES So USAEG elope em, bo Sen S144 37 230 
DOWELL += : e 3 < 5 3 ? 3 pe 9, 
BEAM ID BOueee2 DOL DOZ 

RESOURCES cow to 2 2 

DWELL # . Tie 13" - 14 


ame aerate eatete eee eee et eit ete ee ete ee eee eee ete eet ete es eases ee ete? eet ee ae at at af a= 2 a = =e 
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REQUESTED BEAMS FOR SCHEDULER INTEERV2AE- 90 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THis INTERVeL 
B-EVENT = TARGET PEPIN Ten 

NO REQUESTS» HIS INTERV ey 
C-EVENT = SPECIAL Geo. 

NO REQUESTS THIS INTERVAL 
F-EVENT - PRE-ENGAGED HOSTILE TARGET 
BEAM ID FOl FO2 FO3 FO4 FO5 
OUEUS Osi. 1 g S 4 3 


Z-EVENT - OWN SM-2 MISSILE 3UIDANCE 
BEAM ID ZO1 202 

QUEUE POSIT 2 

D-EVENT - ENGAGED HOSTILE TARGET 

BEAM ID DO1 DO2 DO3 DO4 DOS 
QUEUE POSIT 7 2 3 ‘daeas 
H-EVENT - SIGH 2RI TRACK CONFIRMATION 
3EAM =D 401 +02 

QUEUE POSIT i 2 

D-ZVENT - UNEVALUATED TRACX 

2EAM ID 201 202 

QUEUE 20SIT Lt 

I-EVENT - SORIZON SZARCH 

SEAM =D 701 102 103 204 105 106 107 108 [09 110 
QEVE 2OSIT 2 2 8 eae 
G-EVENT - HIGH 2RI TRACK TRANSITION 
BEAM ID GOl GO2 GO3 G04 GOS 
QUEUE POSIT ly 2 eae ee 
O-EVENT - ASSUMED HOSTILE TRACK 

BEAM ID 001 002 003 004 005 
QUEUE POSIT 1 2 3 4 5 
N-EVENT - CONFIRMED HOSTILE TRACK 
BEAM ID NO1l NO2 NO3 NO4 

QUEUE POSIT 2 3, 46 
Q-EVENT - CONTROLLED FRIENDLY TRACK 
BEAM ID Q01 Q02 903 904 

QUEUE POSIT ime 2 8 


U-EVENT - CONFIRMED FRIENDLY TRACK 
UO1l U02 


BEAM ID 

QUEUE POSIT 1 

R-EVENT - TRACK CONFIRMATION 

BEAM ID RO1 RO2 RO3 RO4 ROS 

QUEUE POSIT i a yer 

S-EVENT - TRACK TRANSITION 

BEAM ID S01 

QUEUE POSIT 1 

V-EVENT - ABOVE HORIZON SEARCH 

BEAM ID VO1l VO2 VO3 V04 VO5 VO6 VO7 VO8 VO9 V10 
QUEUE POSIT i 2 3 @ @ 6 7 8 @cmeo 
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T-EVENT - ASSUMED FRIENDLY TRACK 
BEAM ID TO1 
QUEUE POSIT i 
J-EVENT - SPECIAL ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
K-EVENT - SPECIAL TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
L-EVENT - SPECIAL MANUAL SCAN 

NO REQUESTS THIS INTERVAL 
M-EVENT - SPECIAL TARGET ACQUISITION 

NO REQUESTS THIS INTERVAL 
W-EVENT - SPECIAL ABOVE HORIZON SEARCH 
BEAM ID WOl WO2 WO3 WO4 NOS WO6 
QUEUE POSIT iene os 4 5 «CG 
X-EVENT - SIMULATION DWELL 

NO REQUESTS THIS INTERVAL 
Y-EVENT - DIAGNOSTIC DWELZ 

NO REQUESTS THIS INTERVAL 
Z-ZVENT - DUMMY DWELL 

NO REQUESTS THIS INTERVAL 


BeneOPULAD DWELLS FOR SCHEDULER INTERVAL: 90 


BEAM ID CO es@eme0S 702705 201 202°D0l DOZ 203 
Be OURCES Soeeme Owe Sice too 56. SL “445557 " EO 
DWELL + 1 Z 3 4 3 S) 7 3 o 326 
BEAM ID DO4 DOS HO1l HO2 
RESOURCES Zan 6 9 Z 
DWELL # fe Ye S14 
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REQUESTED BEAMS FOR SCHEDULER INTERVAL: 100 
A-EVENT - ECM BURNTHROUGH 

NO REQUESTS THIS INTERVAL 
B-EVENT - TARGET DEFINITION 

NO REQUESTS THIS INTERVAL 
C-EVENT =" SPECIAL ESL 

NO REQUESTS THIS INTERVAL 


H=EVENT - HIGH PRI TRACK CONFIRMATION 


BEAM ID HO1 HO2 

QUEUE POSIT pe 

I-=VENT - HORIZON SEARCH 

3EAM ID 101 I02 I03 104 I05 I06 I07 I08 109 110 
QUEUE POSIT 1 2 3 4 #+%S 6.007 Soe 
Z-EVENT - OWN SM-2 MISSILE GUIDANCE 

BEAM ID E01 E02 

QUEUE POSIT 1 2 

Q-EVENT - CONTROLLED FRIENDLY TRACK 

SEAM ID QO1 902 902 904 

QUEUE 20SiT 2 eos 

S-EVENT - TRACK TRANSITION 

BEAM ID 301 


QUEUE > 


O 
Ww 
ri 
1 
é 


RoBVENT - TRACK CONFIRMATION 


BEAM ID R01 202 203 204 205 
QUEUE POSIT i 20 2S 
D-EVENT - ENGAGED HOSTILE TARGET 
BEAM ID DO1l DO2 DO3 D04 DOS 
QUEUE POSIT 2) anes 
G-EVENT - HIGH PRI TRACK TRANSITION 
BEAM ID GO1l G02 G03 G04 GOS 
QUEUE POSIT i 2) 255 0aees 
P-EVENT - UNEVALUATED TRACK 

BEAM ID PO1 P02 

QUEUE POSIT 1h, 

F-EVENT - PRE-ENGAGED HOSTILE TARGET 
BEAM ID FO FO2 FO3 FO4 FOS 
QUEUE POSIT ive 2. Skee 
O-EVENT - ASSUMED HOSTILE TRACK 
BEAM ID 001 002 003 004 005 
QUEUE POSIT i 28 ee eds 
N-EVENT - CONFIRMED HOSTILE TRACK 
BEAM ID NO1l NO2 NO3 NO4 
QUEUE POSIT ees ee 
U-EVENT - CONFIRMED FRIENDLY TRACK 
BEAM ID u01l U02 

QUEUE POSIT 1 

T-EVENT - ASSUMED FRIENDLY TRACK 
BEAM ID TO1 

QUEUE POSIT 1 
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V-EVENT - ABOVE HORIZON SEARCH 
BEAM ID VOl VO2 VO3 VO4 VO5 vVOoO6 VO7 VO8 VO9 V10 
QUEUE POSIT 1 Z 5 4 3 6 a 8 SG 
S-B VENT = SPECIAL &CM BURNIHROUGH 

NO REQUESTS THIS INTERVAL 
Peovelt«= SPECIAL TARGET DEFINITION 

NOVREOURSTS, THIS INTERVAL 
PomsveNT - SPECIAL MANUAL SCAN 

NO REQUESTS THIS INTERVAL 


Mee er - SPECZAL TaRnGeT ACOUISITION 


NOTREQGURS?TS LIS INTERVAL 
feel - sPECITAL aBOVE SORIZON SEARC 
BEAM 2D WO1l WO2 WO3 WO4 +105 106 
Svage POSIT Ns Z 3 - = =) 


Peeve Nr - SIMULATION DWELL 

NGBRECUESTS THIS INTERVAL 
MeeveNT - DISGNOSTIC COWELL 

Nee eCOURS@S (ats INTERVAL 
fae veit = DUMMY DWELL 

NeOeeeeUbsie Gals SNTERVAL 


Se qgGQe@eieegbe@ae S&F ee we ee eS SS SS St et Se ae est et st Se SS SB See Sas e SB eee See ae CSE SS SBI eS Se See Se le 


P@mePuULSD DWELLS cOR SCHEDULGR INTERVAL: 100 


s—_-—6Ch Se eee@g@ee@@gaeeeeee ee ee ese eeg@geeze@weteee eget esas eset ese ese eon eee est este este ae es ee ee - = «8 


SEAM ED BOL Hog ecuel) 10272038 F04 205 106 -07 108 
moe Ounce ss sp Gi deae 600) 94% 9 > GOD cos BE ee 
DWELL = = is 3 - 5 3 ‘i a 3 10 
BEAM ID Piette ble SOLO ZyO0l O02 003 004 sol 
RESOURCES Soe ocomroo ee 4oo9 (32 25 18 11 4 
DWELL # ieee oe eG 6176 CUB 19° «(20 
BEAM ID VOl 
ReSOURCES 1 
DWELL # 74k 
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